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Foreword 


This, the last in the series of Junior Computer Books, describes all the 
software required to operate the complete system. Chapter 13 introduces 
an extended version of the Printer Monitor program (PME) which com- 
bines the advantages of the original editor program with those of the 
Printer Monitor. It selects the best of both worlds. As a result, program 
entry and assembly can be accomplished quickly and easily. 

Chapter 14 provides a detailed description of the Printer Monitor program 
and the associated subroutines, while the extended version is fully de- 
scribed in chapter 15. The software required for the cassette interface, the 
Tape Monitor program, is explained in great detail in chapter 16. 

As well as providing a complete run down on the various system routines, 
Book 4 also contains detailed program listings of the PME, the TM and 
PM software in the appendices at the back of the book. Finally, appendix 5 
describes how BASIC may be run on the Junior Computer, a welcome 
facility that puts the machine in touch with the rest of the world. 


Contents 


Chapter 13 2.1... ecw ee cc ee teens Ata eT a ta bas BLOC 
Editing and assembling — The PM Editor 
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The complete listing of the PME system program 
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The hex dump of the PME system program 
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Appendix 4 2.2... ee ee ee ee ees 


Working in decimal 


Appendix 5 2.0... 0.0... ec cee eee 
BASIC on the Junior Computer 


62 


100 


126 


174 


185 


187 


214 


215 


Ye eee wy ery en ™~ oP fond a oR BRO If ton oy F 


ng wan’ wo gern 


eet COC PR a Oa oe ae 


ny 


. a ens Naat ry wore BR TT eet Batt we tee oo 
sat . 7 pe ONS = mR ee ng gk gy ny Potent gs N omy, ony ewe poy 
x we aie eae moe ee a aie 0th xe. : : ca i. . —o aon fe “4 a mm yaw ra feed ex ms come? Bennk L 3 4 waa an bw Saw ° Rades . 
AND were, we yew Mada, MEY : ey “ Me a ey, ey an oN ya mm Bren, fey ww Me a om, 
we a eee oh : * aw? a hot Nat 88 a goal « a eet Suede ~~ wood gloat be Ne ee peat Hou ri ct ee ca ds i ane? em 


Pm OOO Sor eon PSO SMSO MM AHOm 


wt gent Aes Naw eed weer ee 


we vas! 


Ro 


nae aa ae mye Saat ws ry’ 
: par .? he ewe 


R 








pawn on reat me my Ree ge yt wr, a Fs Ca ma tN (wo 2 poy me te ga PS re ~~ Javad ony 
rm my eb 8 ae hada ms, weer poo Tec Sachon at amt oe es f wt tend on aaah Yet i of ens me : Nat jordone at oe Won ; o 
es - ey aa , won: Dom pw woe ee i<> rd A Sy fey : eat wang ; oe yu wy : 
ry a hee EEO PS ee OO ms 2 ~~ MPDmewHOort “De mOor spate 
ow we go gm ~ mo aenge ey eae sy pany, pee go _ ee ps PS Oe pom Fey oye 
o ix cS a re peed ca YY. w ak ane foot Nw? bw 3 ds 2 fot ae. inten eres Whe fond i a ww Bien a es Tt nse! woes 
mS gy a ertcd SBMOM RSeHOr RDOSeOm Hoerog < 
fie : a os et Mee Oe 2 oe ” 2 hing TOM co eS 5 red (. Babee Sed woe ; O : mead Forse rs fs ne é a 
‘ mee poe ee Te ws 2 Pete si 3 Bay pe © ed my 
a gb es fot Rue awe wa gone bee raul wir : ‘ Yiwet Secs ‘ 
: ~~ oe Sanian Oanng OMY ony : remy, BAND ny 
3 Ee bon pate . 3 oe ot ae Read dee tt. Ped it see 
ns sts ae ee , wom, ys 3% 
DEMO owe e coe Oe 
ay at eos eNO wes, Pee he, wy ery 
Pe sueh Aeoe Ph Noa oe Se eee A tno Alles ent 
s Sais taal . Boon, 
oh ay write ie POSS. Foy BON BI Fmd 


Oh get enn BN gee ee” saa 
hw fats = ~*~ wae se. fog 8 Oe ag 
SP iad oe Ne prey tomy He Rs g % ry 


he ket aa hayes gad ' 


eet 

R 
J 
Ni 


5 any Pe OS yr, ne 
S ped ¢ we EE an ti jewd ¢ pee - 


© 


OF 


a 





ry 

f 
ATOR 

R 


P ESE 


wb fe io ee ro, FP Bend 
es jew BO? re 7 gk wee! Pt “~ pom’ Mat p 

“ee pe er es ie Ce es 

aga ice ~~ Soa Ratan, Sa Nes ete. ww ads 

; Andi 

BSN Pe aoa Pr ergte SN co rT 

wl Nee Bone raat lent oe 7 pi ws rae 

Breit € ee el re 

; ae “ “ 


re 
POR 
. 


B gins tt babes 
Py ee ee RCO 
rae or et 
Py SS Tee bet 


q 
NE 


j 
4% 


£ 
%, 
wl 4, 


$ 
¢ 

















eat} 


AOC OPM Or Hose O ee Ps Roe eMOM MD RHOr noesHore 


ie. 
NT OR 
TOR 


é 


ON 
JUN 


$ 
3 
XX 


J 





< Se 
Af fy" To 


ory 2 ow 
+ fh. an 


i Fe 
oo, 


Bot Series 
ry OO 
Pe be CO 
YY Pp. 
Co... oo ae 
a 


ae a8 


MO TS 
~; 

Ms beh, ‘ ee 

meet Se et ~ iC "sy re 

ry wy ben one 


aa 


ee Pees = 


ak nae x 
i aah Ss 
er it. m 
fond CO OS 
Fee EOD 
fe oe ed 


“ 

we eee OS - . = i 
ey eg OS 5 Rome bow OO OY rss 
aS a PS et Ce 
Se a res Fhe rs m Se eH Co 

Oe PP ee Om meme Om 
“er Posotee Go Pao eee 
ee. eet Meee CO be 
my ee CO US ee Ce ee 
ee ed CD Oo Pe ee — ee ee ae 
See eae CO OS my Feet OOO TE 
from oy ah ped CY on ee i, 

x MID 2 Oe So ee 
oe tee . so he Pony ys hee OT pony Som fd OOD 
LE ee, Pa a pei Se PS) Ie Res oN x OO oe poe ee EO DR 
o a es Ce TS ox beige Pt oy A wee Ce rm 
Se et EI UMS er CO oe fos ES GRD — Bri CAN MSO 
: wt —- end ™, yt i ym o os feos ee: ee 5 paw. 


Prey _ : s wd pe ony, 
ies ee Cie Py eo en Re EO 


owe oh at head 








me Se eOM Mme EO ae 
Py ee oe Pm) = Sem Pays 
Se Foe rOrm Soe Oo. &3 
foe, | Pa ee a S mFS ss eh bt COO 
ee ee OOM ee OO 


ON 
Soom Rs cae tates 


Pyt ee saat fee 


we bevwy Baw he 
. 
oe poy oy 


ZeiOm 3 


— bad 5 ea 


z. 


hee & 
mee 
wu 
ny 


weed 


em 


$ es 
PN ig ee 
Naa oat 
—y wage 


igrareyy 1 gO. ay 

ee PO Rats 

trey ie = 
* aa “s 

Races! Saas bees Neeas 

Boks meen 2 Sow 
Egat Nees 


13 


Editing and assembling 
at high speed 


The PM Editor 


Writing a program is great fun... until it has to be entered into 
the computer. That is, unless the programmer has acquired a 
certain degree of expertise and has discovered all sorts of short- 
cuts to speed up the process. After all, the Junior Computer 
was designed to provide enthusiasts with an educational, yet 
enjoyable pastime — not forced labour! 

The first step towards simple and efficient program entry was 
taken with the introduction of the editor and assembler in 
Book 2. Book 3 went a step further with full details of the 
cassette interface which enables programs to be stored on tape, 
so that they only have to be entered manually once. But, as this 
chapter will show, the entire process can be accelerated con- 
siderably with the aid of a high speed editor. 

The computer’s ‘jump’ from the original monitor program to 
the Printer Monitor was also described in Book 3. It is now time 
for yet another leap forward: from the original editor to the PM 
Editor (PME). As its name suggests, this is an editor program 
based on the Printer Monitor. In other words, it involves the use 
of the ASCII keyboard and the results can be monitored on a 
video screen or with the aid of a printer, instead of the hexa- 
decimal keyboard and the seven segment displays. Nevertheless, 
the system will still make use of hexadecimal labels for efficient 
program entry. 

Let us examine the number of new possibilities that are now 
open to us. For one thing, there are more keys available, some 
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of which already serve a variety of ‘new’, time-saving functions. 
In addition, several instructions can now be displayed at the. 
same time. What is more, the actual number of key operations 
can now be reduced by about 30% with respect to the original 
monitor routine, so that the programmer is less liable to make 
typing errors. 

All this has come about with thanks to PME. Again, this very 
useful feature will be explained in detail and will be illustrated 
with practical programming examples wherever relevant. The 
programs will involve PM subroutines such as the ones described 
in chapter 12 of Book 3. 

Reading this chapter and learning to work with PME is bound 
to take a certain amount of time and effort, but the program- 
mer will discover that in the end it will save him/her precious 
hours... 


Junior’s gaining stature 


The computer completed its physical growth in Book 3. In Book 4 the 
machine will be supplied with sophisticated software to update its mental 
education. 

Both the EPROMs containing the Tape Monitor and the Printer Monitor 
have a vacancy for about % kilobytes of memory. Obviously, something 
had to be done to ‘fill the gap’. PME was developed to occupy these (so 
far) unused memory locations. Although the PM editor does not occupy a 
great deal of memory space, this ‘investment’ provides a lot more room: 
on the keyboard and especially on the video screen which now allows in- 
struction sequences and various comments to be shown in an easy-to-read 
manner. Therefore, the new editing feature is a real ‘eye-opener’ in every 
sense of the word! 

Of course, the statement that a new editor is required will make readers 
wonder what was wrong with the old one, or rather, what advantages does 
PME have over the original editor routines. The argument that there 
happens to be sufficient room for PME in an existing EPROM is hardly 
valid! After all, the memory space could have been filled with all sorts of 
equally useful routine and/or interesting information! 


What does PME have to offer? 


Weill, what did we have to start with? As you will remember from Book 2, 
the original editor program had one very great advantage in that it enabled 
the use of hexadecimal labels. The alternative is to use labels consisting of 
words of up to six letters: labels similar to the ones found in the listings 
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at the back of Book 2 and at the back of this book. The thing is, such 
listings are made with the aid of a large editor and assembler which occupy 
a great deal more memory space than the %k taken up by PME. So, apart 
from the extension memory (busboard EPROM), there just is not suf- 
ficient EPROM available for word programming. In any case, the majority 
of programmers would prefer to store programs on cassette tape rather 
than run to the expense of filling up yet another EPROM. However, there 
is another reason for not choosing a large extensive editor. 
This would require a fully documented user program, so that ail the labels 
are known and all the memory locations involved are assigned a name 
beforehand (such as POINTL or BYTES), in other words, they have to be 
‘declared’. The same thing refers to subroutines with a fixed address, 
tables, etc. 
Now, supposing an operator has thought of a program at four o'clock in 
the afternoon and wishes to know by five whether or not it works (so as 
not to miss the train home!). The chances are, the program will need 
brushing up here and there. Then it should be taken into account that: 
a. a large editor/assembler requires a considerable amount of preparation 
work beforehand; 
b. more often than not, some of the preparations will be found to have 
been superfluous. 
Seen from that angle, it is preferable to have an editor that works with 
hexadecimal labels like the original editor and PME of the Junior Com- 
puter. Granted, the method mentioned above would have the program 
entered by four thirty, but what is the point, if it takes another hour to 
‘clean it up’? 
Undoubtedly, hexadecimal labels make programming a lot easier. During 
the ‘creative phase’ in particular, when a program is actually being devel- 
oped, the hexadecimal system is indispensible. Furthermore, it saves 
having to write a new assembler, as the existing version described in 
chapter 9 of Book 2 is perfectly suited to its task. 
There is only one (possible) snag in using hexadecimal labels: label 
numbers may not be identical to the low order byte (ADL) of an absolute 
address, in other words, an address which was established before the 
program was edited and assembled. However, there are matters which the 
operator will get to grips with soon enough, so it is hardly a disadvantage. 
in any case, only about 80 labels are actually available which should avoid 
confusion. Readers may think that this is a limited number, but they can 
be assured that, even when relatively long programs are involved, 80 is 
more than sufficient. 
In spite of these advantages, the original editor routine needs to be re- 
placed for the following important reasons: 
@ Firstly, the key functions on the main board of the Junior Computer 
are very restricted and so is the six digit display. 
@ Error messages. The standard editor only features one type of error 
message: ‘EEEEEE’ on the display. This is shown until the offending 
key is released. Statistically, therefore, it is quite likely to escape the 
operator’s notice altogether. Since it is always useful to be able to learn 
from one’s mistakes, it might be helpful if the computer were to be a 
little more explicit by providing 


® more error reports. One large disadvantage in the original editor is the 
fact that it gives no indication when the memory range defined by 
BEGAD on the one hand and by ENDAD on the other is full after an 
excessive number of instructions and labels have been entered. This 
can be extremely annoying and is exactly what happens in the PLAY 
program given in Book 2 (page 41). The available memory range, 
0000... @@ED, is quite sufficient for the assembled version of the PLAY 
program (labels are deleted), but not for the non-assembled version where 
the labels are still included. As a result, the computer runs out of memory 
space, so that the EOF character, 77, will be stored in location @0E3 
(=BEGADH!) and the first instruction is overwritten. This can be 
remedied by dropping the label 99 (PLAY), which is quite feasible since 
the program does not actually jump to this label. Then there would be 
room for the whole program (including all other labels)... but there 
would not be enough locations !eft to store the first label to be detected 
during assembly (see figure 1). The solution is to store the PLAY program 
on page @2, where there is plenty of room. 
By the way, the extended version of the Junior Computer provides con- 
secutive RAM from 0200... @7FF, amounting to 1% kilobytes, so there is 
very little danger of running out of space. 
@ Less fingerwork. INPUT is by far the most commonly used key func- 
tion, because more often than not an instruction has to be stored in the 
memory location following the one currently on display. Thus, most of 
the typing involves entering a consecutive series of labels and instructions. 
Fortunately, PME avoids the need to depress the INPUT key for every 
single instruction and label, as it will accept an automatic INPUT whenever 
numeric data (@...F) is entered, unless another key function was chosen 
which also requires numeric data to be typed in (such as INSERT or 
SEARCH). The automatic INPUT mechanism saves a considerable amount 
of typing. 


Introducing PME 


In the original editor program, the display alternates between showing 
which key was depressed and the reaction by the Junior Computer. What 
is missing is a ‘bird’s eye view’ of what is going on. As readers will re- 
member from Book 3, a video screen allows far more information to be 
packed into a single line and a total of sixteen lines to be displayed at the 
same time. Thus, the operator has a clear idea of the complete pro- 
gramming process. The ‘hardware echo’ feature inherent to the Elek- 
terminal was also mentioned in Book 3. The echo enables any key that is 
depressed to be displayed on the screen or printed on paper automatically 
— without requiring a single byte of software. 

Two columns can be printed on the video screen or via a printer. One 
represents the key operations by the user and the other expresses the 
reactions by the Junior Computer. Thus, one column tells the operator 
what he/she did and the other prints the computer's response. 

The feft-hand column is reserved for the reaction by the computer and the 
right-hand one for the action by the user, the latter being on the line above 
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the former. (As will be seen later on, labels form an exception to this rule 
as they are printed across the full width of the screen.) 

Computer messages During the discussion on PM several computer mess- 
ages such as ‘JUNIOR’ or ‘WHAT?’ were introduced. Similarly, PME 
reports back providing either general information or error indications. The 
error reports are specified, so that the user knows exactly what went— 
wrong. 

The addresses are also shown. 

Now that there is plenty of printing space, the computer might just as well 
go the whole way and print each instruction along with the address con- 
taining its opcode. This is a very informative addition, as it enables the 
user to keep track of how much memory has been used at any one time 
and (more importantly?) how much memory is still available for the rest 
of the program. 

And much more... A faster and more convenient method of defining 
BEGAD and ENDAD, four start addresses instead of two, many more key 
functions, faster assembly, address information about labels etc. Sounds 
intriguing? Read on for a closer acquaintance with PME! 


PME: a thorough survey 


A. General points 


The PME system program is stored inside the PM program EPROM. This is 
{C5 on the interface board. The PME program occupies memory locations 
14F8...17FD. Use is made of several of the PM subroutines, which 
means that PME will have to be started by way of PM (choice of four start 
addresses). !f it were to be activated by way of the monitor routine, the 
input/output (I/O) parameters would not be correctly defined. : 


B. Cold start entry 


Start address: $ 1500 


As in the case of the original editor program, the cold start entry into PME 
occurs at the very beginning of the editing process. In other words, this 
does not refer to a user program that has already been edited once, and 
perhaps even assembled, and that needs to be edited again (there are other 
start adresses for this, which will be dealt with later). 

The procedure is to start up PM first: 

RST 1 @ @ @ GO RUBOUT (= RES) 

which brings us into PM. Now for the cold start entry into PME: 

15 @ @ SPR (SP = SPace bar, not ‘S’ followed by ‘R’). 

That starts the PME routine and the computer answers: 

BEGAD, ENDAD 

As readers may have already guessed, this indicates that the first address, 
BEGAD, and the last address, ENDAD, have to be entered to define the 
memory range in which the program is to be stored. A cold start entry 
always involves RAM. 
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Now the process is similar to that of the M key in PM (hex dump listing). 
First the address corresponding to BEGAD is entered, then the comma and 
then ENDAD. Finally, CR (Carriage Return) is pressed. Again, leading 
zeros do not have to be included. For example, the popular address range 
6200 .. . O3FF becomes: 

BEGAD, ENDAD: 200, 3FF CR 

PM EDITOR 

6266 77 

When the text ‘PM EDITOR’ appears on the screen, this means that 
instructions and labels can now be entered. The ‘77’ at BEGAD is identical 
to the one in the original editor. It is none other that the EOF character 
which moves up the address range as instructions and labels are typed in. 
Not surprisingly, the first instruction after the cold start entry has to be 
entered with the aid of the INSERT key: | (see point G, number 5). 

All in all, the PME cold start entry is a lot faster than its original counter- 
part, as all the business concerning the high and low order bytes of the 
start and end addresses has been discarded. 

N.B. if ENDAD turns out to be lower than BEGAD, the computer will 
not report the error, unlike the M function in PM. It stands to reason that 
ENDAD must be higher than BEGAD and therefore lower down in the 
memory map. 


C. Warm start entry 


Start address: $ 1533 


The warm start entry procedure will also be familiar from the original 
editor. This allows the computer to return to the editor, during which the 
following address pointers will be defined in accordance with the initial 
editing process: 

BEGAD: BEGin ADdress pointer 

ENDAD: END AbDdress pointer 

CEND: Current END address pointer 

CURAD: CURrent ADdress pointer. This is used to point to the address 
location containing the opcode of the instruction currently on display. In 
PME it points to the address location containing the opcode of the last 
instruction to be printed by PME in the left-hand column on the video 
screen or printer. 

After the start address 1533 has been entered (via PM!) and the R key has 
been depressed, the computer reports back by way of PME: 

PM EDITOR 

XXXX YY YY YY 

Here XXXX represents the contents of CURAD and YY YY YY _ the _ in- 
struction or label whose opcode is situated at the CURAD address. 
Depending on the length of the instruction, only two, four, or all six 
characters will be displayed. As opposed to the cold start entry (see B) the 
EOF character 77 will not be stored at location BEGAD. 


D. Lukewarm start entry 


Start address: $ 1667 


This is new. As its name suggests, it is half way between ‘cold’ and ‘warm’. 
Rather like a cup of tea that has been standing for a few minutes. It is like 
the ‘cold start’ in that first BEGAD and ENDAD have to be entered and 
the first instruction (with its opcode situated at BEGAD) is displayed. On 
the other hand, it is also similar to the ‘warm start’, as the EOF character 
is not stored at BEGAD. During a cold start entry, the current end address 
pointer (CEND) initially points to an address location which is one higher 
than BEGAD. However, during a lukewarm start entry, the contents of the 
CEND pointer are made equal to those of ENDAD. 

The procedure is as follows: 

1667 SP R 

BEGAD, ENDAD: 1 C @ @,1 F F F CR 


PM EDITOR 

1006 85 

In the given example BEGAD was defined as 1C@@ and ENDAD as 1F FF. 
That’s funny...isn’t that the address range of the original monitor 


EPROM? It certainly is, for the lukewarm start entry is especially designed 
to examine ready-made programs, whether they are located in RAM or 
EPROM, and the key functions SP, Z, L, P and S (see point G) play a 
significant role in this process. Thus, this type of entry into the PM Editor 
is of vital importance during the learning process of the apprentice pro- 
grammer, as he/she can now analyse his/her own programs, bought or 
borrowed software, system programs stored in EPROM, listings, etc. 


E. The warm CEND start entry 


Start address: $ 17C5 


Chapter 11 of Book 3 discussed how user programs, including labels, could 
be stored on cassette tape to great advantage. One method was to use the 
TM program (which was designed specifically for this purpose), but there 
is another way involving PM. In the latter case, not only must an identifier 
(ID) be entered, but also a start address (SA) corresponding to BEGAD 
and an end address (EA) corresponding to CEND. The address pointed to 
by CEND can be found quite easily with PME, as this is equal to the 
address that is one location higher than the one containing the EOF 
character 77. 

Right, imagine that a program is stored on cassette and we wish to ‘add the 
finishing touches’ with the aid of PME. First of all, the program will have 
to be re-entered from tape. This is done by way of PM (key G). Next, PME 
is activated by way of a warm start entry. This means that BEGAD, 
ENDAD and CEND will each have to have a value which corresponds to 
those of the program that has just been retrieved. In addition, the CURAD 
pointer should also have a suitable value. The complete procedure was 
described in chapter 11 (Book 3). Quite a number of addresses had to be 
noted down, etc., which proved to be rather long-winded. 
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The solution is to activate PME by way of a warm CEND start entry. 
Obviously, both iD and BEGAD will have to be known factors, but 
ENDAD can be readjusted to allow extra instructions and labels to be 
inserted into the program. The end address pointer also needs to be 
modified if several edited programs are to be entered from.tape as one con- 
tinuous sequence (remove all EOFs) with the aid of the ‘ID = FF trick’. 
What happens after the warm CEND start entry of PME? Well, once the 
pointers BEGAD and ENDAD have been defined (as in the cold and luke- 
warm start entries), PME searches for the memory location containing 
the pseudo-opcode, 77. As soon as this has been found, the address con- 
taining this value is incremented by one and the CEND pointer is then 
readjusted so that its contents are equal to this new address. The computer 
reports: 

PM EDITOR 

XXXX 77 

and CEND is pointing to address location XXXX + 1. 

The warm CEND start entry can be implemented to re-edit programs (in- 
cluding labels) which were stored on cassette, where SA= BEGAD and 
EA = CEND. This is the prime objective of this method of entry into PME. 
However, it also serves other purposes. For one thing, it can be used to 
check whether the EOF character 77 is still included in the program once 
it has been assembled. After assembly, in other words, after aJl the labels 
have been removed, 77 will still act as the EOF character. it will now be 
held in the memory location immediately following the one containing the 
last instruction in the program. If for any reason an assembled program 
needs to be re-edited (labels can always be replaced if necessary!) the 
warm CEND start entry into PME can be employed, provided the final 
EOF character was included in the version stored on tape. Then it is 
merely a question of selecting a location for EA (End Address) that is 
one greater than the value of the address containing the last instruction 
in the program. This is accomplished automatically in TM when the SEF 
key is depressed. 

For a warm CEND start entry into PME to take place, therefore, the 
program will have to include an EOF character. If not, the text ‘PM 
EDITOR’ will not appear on the screen and the program will ‘crash’. If 
this does happen, depress the RST key, start up PM and choose another 
method of entry into PME. A practical example of this type of start entry 
is provided further on in this chapter (example 5). 


F. The BREAK key 


Interrupting the printout... 


The BREAK key was mentioned during the discussion on PM. It was used 
to interrupt the printing process of fairly long texts. Thus, it acted as a 
kind of emergency brake. A similar thing occurs during PME as well. 
Whereas in PM it often proved necessary to interrupt the function pro- 
vided by the M key, which prints out the hex dump of a program, it is the 
L key in the case of PME (see point G, number 8) which gives cause for 
such a measure to be taken. The L key allows the programmer to examine 
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a particular program at high speed. When a program section appears which 
requires closer scrutiny, the user simply depresses the BREAK key and 
then the P key once or twice (see point G, number 9). After this, the 
computer will report ‘PM EDITOR’. 

N.B. If PME is activated by way of acold, lukewarm or warm CEND start 
entry, the BREAK jump vector will still be defined by PM. If the com- 
puter is interrupted while printing ‘BEGAD, ENDAD’ by way of the 
BREAK key, the text ‘JUNIOR’ wiil appear on the video screen. 


G. The key functions of PME 
1. SP (space bar) (SKIP) 


The ‘increment instruction’ key 


This key is well known to us from its use in the original editor program. 
Suppose that PME has printed an instruction in the left-hand column of 
the video screen (or the printer). This will include the address containing 
the opcode of the instruction. The cursor of the Elekterminal (or the 
carriage of the printer) will be ‘pointing’ to the first position of the right- 
hand column. It will be on the same line as the last instruction mentioned. 
By depressing the space bar, SP, nothing will appear in the right-hand 
column which is devoted to displaying key operations, as the SP key is an 
‘invisible’ command. But something does happen, for the next instruction 
in the program, or the next label (FF XX @@) is printed on the following 
line in the left-hand column. The length of the previous instruction can 
therefore be calculated from the address of the opcode of the following 
instruction or label. This address will be one, two or three locations higher 
than its predecessor. 

Once all the instructions in a program have been run through, that is to 
say, repeatedly depressing the SP key has brought us to the EOF character 
77, SP is operated once more, thus: 

XXXX 77 SP 

DONE 

YYYY (ZZ ZZ ZZ) . 
Before the new instruction is printed, the computer reports ‘DONE’ to 
indicate that the CEND pointer has been passed. The address YYYY is one 
location higher than XXXX, because the ‘instruction’ having an opcode 7/7 
(the EOF character) is assigned a length of one byte. The instruction 
'27Z 22 2Z' is more than likely quite meaningless. It depends on what 
happened beforehand: the editor may well have been activated by means 
of a cold start entry. In any case, the instruction ‘ZZ ZZ ZZ’ is not part of 
the program that the user is currently working on. The number of ‘Zs’ 
depends on the length of the real/imaginary instruction. From the de- 
scription of the subroutine OPLEN/LENACC (chapter 8 in Book 2) we 
know that any combination of two hexadecimal numbers is assigned an 
opcode. 


N.B. If the space bar is depressed several times after skipping the EOF 
character, the following ‘instruction’ will be printed after the message 
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‘DONE’. Thus the PME program does not ‘disable’ the process, but the 
repeated ‘DONE’ messages politely remind the user that it is unnecessary 
to continue. 


2. Z (BACKSPACE) 


The ‘decrement instruction’ key 


One great advantage of the Printer Monitor as compared to the original 
monitor was the fact that it implemented a minus key in addition to 
the plus key. Similarly, as opposed to the original editor, PME has a 
DECREMENT instruction key in addition to the SKIP key (INCREMENT 
instruction key). As an example: 

@2AC FF 17 66 Z (label 17) 

62AB CA Z (DEX) 

G@2A9 AQ FF Z (LDA # FF) 

62A6 26 14 06 etc. (JSR-label 14) 

If the Z key is depressed often enough, the instruction or label situated 
at the BEGAD address will be reached, and depressing the Z key once 
more will cause the first instruction or label to be printed again. After all, 
there can not be an address below BEGAD! 


3. K (DELETE) 


Remove the label or instruction currently on display 


This is a familiar operation. Pressing K causes the last instruction printed 
to be deleted from memory, or rather, overwritten by the one immediately 
following it. In other words, depending on the length of that instruction, 
the program will be made shorter by one, two or three bytes. The fol- 
lowing instruction is then printed. If the last instruction of a program is 
deleted, the address CEND minus one and its corresponding data (77) will 
be displayed. For example: 

@2A6 26 14 60 SP 


92A9 AQ FF K 
@2A9 CA SP 
@2AA FF 17 66 SP 
@2AD 77 SP 
DONE 


@2AE XX XX XX 

As can be seen, the instruction CA and the label FF 17 60 have moved 
down two locations in the address range and the instruction AQ FF has 
been removed from the program. 


4. T (TOP OF FILE) 


Back to the beginning 
lt can not be said that the operation performed by the T key is particu- 
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larly spectacular, but it can come in very useful. When the T key is de- 
pressed the instruction or label contained at the first address of the pro- 
gram (BEGAD) is printed. This comes in handy when the program is to be 
checked via the SP, L or P keys. For example: 

@2AE XX XX XX T 

0266 FF 16 66 

From this it can be seen that the contents of BEGAD are equal to 020@ 
in this example and that the program starts with the label 1@. With the 
original editor program the start adress would be reached by using either 
SEARCH FF 19 or by skipping through the program towards it. The PM 
Editor introduces yet another method in the form of ‘S FF 1000’ (see 
point G, numbers 6 and 7), but simply depressing the T key saves a lot 
of work — which is just fine for those of us who do not relish a lot of 


typing! 


5. | (INSERT) 


Inserting an instruction or a label 


This key function is by no means new, as even the original editor makes 
use of this operation. Depressing the | key followed by the numeric data 
(belonging to the instruction or label to be inserted) causes the new in- 
struction or label to be placed at a location in RAM which is immediately 
in front of the location(s) occupied by the previous instruction to be 
displayed. This only happens after the required number of numeric keys 
are depressed that correspond to the length of the particular instruction to 
be inserted. The previous instruction and its successor(s) are shifted higher 
up in the memory range accordingly. 

lf after depressing | and before the instruction was fully entered 
(= press two, four or six numeric keys), a different key is depressed (i.e. 
not@...9o0rA...F) the computer will report the error: 

ILLEGAL KEY | 

and the ‘last’ instruction to be displayed is printed once again. The user 
may well have pressed a non-valid key quite by accident, but it could also 
have been deliberate. For instance, the programmer may have realised that 
the data entered was incorrect. The user must then start from scratch by 
pressing |, since it is the INSERT function that is involved — not the 
INPUT function. 

Again, it is time for an example. Supposing the situation is like that in 
point G number 3 where the instruction AQ FF is to be deleted. The CA 
instruction will then be re-located at address @2A9. We wish to replace 
AQ FF by AQ @@ and therefore delete A9 FF. This is accomplished by 
depressing K. Then the keys |, A, 9, @ and @ are pressed and the following 


happens: 

@2A9 CA | AX @ @ 
@2A9 AS O¢ oP 

@2AB CA SP 


@2AC FF 17 @@ 
As can be seen, all the instructions following the LDA immediate instruc- 
tion have moved up two places in memory. Did you notice that PME 
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ensures that the bytes in an instruction are separated by a space when they 
are displayed? This occurs in both the ‘user action’ column and the ‘com- 
puter reaction’ column in order to give a much clearer representation. 
Together with the INPUT key function (see number 10), the INSERT 
function allows instructions and labels to be typed in to the computer. 
In both instances, the memory range reserved for the program will be 
extended. This ranges from the address corresponding to BEGAD up to 
and including the address containing the EOF character 77, in other 
words, from BEGAD to CEND. 

Obviously, the available memory space will not be infinitely large. After 
all, an ENDAD has been defined for a specific purpose. The end address 
has no real value in the original editor mode, but it does have importance 
in the assembler and in PME. We are now going to discuss an error mess- 
age which is displayed whenever the available (= specified) memory range 
is exceeded. This is quite a new feature. 

As mentioned earlier, the assembler described in chapters 5 and 9 in Book 
2 is also used for programs which are entered into the computer by way of 
PME. During the first phase of assembly each label (opcode = FF) that is 
found is stored on the symbol stack, along with the corresponding address, 
and then deleted from the program. Thus, for every label that is removed 
the program is shortened by three bytes. Before the first label can be 
deleted it will have to be overwritten. Provided there is sufficient room for 
it, there will automatically be room for the remaining labels in the 
program. 

The first label must be shifted to location ENDAD and the two memory 
locations below that (lower address, but higher up in the memory map). 
These locations may not be used to store instructions or labels belonging 
to the program that is to be edited, nor for the EOF character, 77. This 
means that the position of the CEND pointer, as shown in figure 1, is the 
lowest possible one. CEND will then be pointing to the highest possible 
address, its contents being at a maximum level. 


(By the way, the minimum number of vacant memory locations men- 
tioned on page 134 and page 181 in Book 2 is too large. Only four lo- 
cations have to be reserved: three for the first label and one for the EOF 
character. The address ENDAD is taken into account when the total 
number of memory locations is determined). 

Back to the space check. As soon as an instruction or a label has been 
entered — by way of an INSERT or an INPUT operation — PME checks 
to see whether the corresponding rise of the CEND pointer (since the 
program is increasing in length) does not lead to a new CEND position 
which is one location higher than that shown in figure 1. If this is so, the 
computer reports back with the text ‘FULL’. The last instruction to be 
entered is not stored in memory as there is no room for it. However, 
instructions can still be printed after the ‘FULL’ message. In the case of 
an INSERT operation, this will be the last instruction to be displayed 
before the new one was entered via the | key — and ‘rejected’. In other 
words, the current address pointer, CURAD, remains unchanged. If, on 
the other hand, the [NPUT function is used to enter an instruction and 
this is rejected, CURAD will rise by the length of the last instruction to 
be displayed. The full details of the difference between the INPUT and 
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ADH label 


81942 -1 


Figure 1, The ‘lower’ four memory locations — the top four addresses — of the 
memory range defined by the pointers BEGAD and ENDAD can not be used to edit 
programs. As soon as the contents of CEND are less than those of ENDAD minus 
two, PME will report ‘FULL’. The traffic sign in the lower three memory locations 
only refers to the situation during the editing process. After the first phase of 
assembly the first labe! encountered is stored in these memory locations {in the 
order: label number, ADH and ADL). 


INSERT functions are shown in table 2. 

N.B. After an entered instruction has been rejected due to lack of space, 
the current end address pointer, CEND, will be raised according to the 
length of the rejected instruction. The EOF character, 77, will however, 
remain where it is! 


6. S (SEARCH) 
7. ¥ (YES) 


As you will probably remember from the original editor program, the 
SEARCH function works as follows. Two bytes are typed in, which in- 
volves depressing four numeric keys. The two bytes may represent either 
a double-byte instruction or the first two bytes of a triple-byte instruction 
or label. When the computer is searching for a particular two-byte pattern, 
starting at BEGAD, it stops as soon as that pattern is found. In other 
words, there is no way of checking whether the same pattern is repeated 
anywhere else in the program. Imagine instructions such as AQ 00, for 
instance. Single-byte instructions could not be tracked down at all and 
triple-byte instructions only had a 50% chance of being found, since the 
computer only looks at the first two bytes. 

It is high time this situation was remedied. The search function in the 
PM Editor has two important new features. 

Firstly: rather than working to a double-byte pattern, any length of 
instruction (one, two or three bytes) can now be searched for. Thus, the 
user is able to examine a particular program for any instruction he/she 
likes. 
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Secondly: The operator can now check whether a specific instruction 

crops up more than once in the memory range defined by the pointers 

BEGAD and CEND. Not only can we track down any instruction or label, 

but also all the addresses at which the same instruction crops up on 

separate occasions (it is important to ensure that each label only appears 

once!). 

What is the procedure? 

a. Firstly, key S is depressed. This is printed in the right-hand column of 
the display. 

b. Next, the instruction we wish to find is entered. This is done by 
depressing two, four or six hexadecimal keys. The number of keys de- 

pressed will, of course, correspond to the length of the instruction or label 

which is to be traced. Only after the complete instruction has been typed 

in will PME start looking for it. This is printed after the S in the right-hand 

column. The PM Editor produces spaces between the bytes. If a non- 

numeric key is depressed after the S key, the computer wil! report 

ILLEGAL KEY and the SEARCH operation will have to be resumed from 

scratch, starting with the depression of the S key. An illegal key may be 

operated by the user deliberately if he/she realises that they are entering 

the wrong instruction. 

c. The instruction has now been entered and PME will begin to look for 
it starting at the lowest address in the memory range, BEGAD. One of 

two things may now happen: either the sought instruction is indeed 

present inside the memory range defined by BEGAD and CEND and the 

computer reacts by printing the instruction and its address on the left- 

hand side of the screen; or, the required instruction is not found in that 

particular memory range whereupon the computer will report: 

DONE 

XXXX ZZZZ ZZ 

Here XXXX stands for the address reached after the CEND pointer con- 

tents have been passed and ZZ ZZ ZZ represents the instruction located 

at that address (this does not necessarily have to be three bytes long, as 

the number of Zs may suggest). 

d. The following key operations are only relevant if an instruction was 
found during point c. This leads to two different possibilities: 

|. The operator wishes to check whether the instruction appears else- 
where in the memory range being examined. This involves depressing 

the Y key. This is again displayed in the right-hand column. PME can 

now report back to the user in one of two ways. If the sought after instruc- 

tion is in fact duplicated it will be displayed, along with its address, 

in the left-hand column. As to be expected, this address will be different 

from the one corresponding to the first ‘discovery’ (see point c); in fact it 

will be higher up the address range. Alternatively, the instruction con- 

cerned may well only appear once in the program, tn which case the com- 

puter will report: 

DONE 

XXXX ZZ ZZ ZZ 

(see point c). 

Il. The operator does not wish to check whether the instruction appears 
anywhere else. In this instance, any key on the ASCII keyboard which 
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will generate an ASCII code, except for the Y key, can be depressed. The 
computer will once again reply with: 

DONE 

XXXX ZZ ZZ ZZ 

where ZZZZZZ represents the instruction found in pointc. and XXXX 
represents the address where it was found. 


In practice, the SEARCH feature involves a few important considerations: 
@ The SEARCH for an instruction can be interrupted at any moment. 
Since the instruction concerned, together with its location (address), 
is printed after the ‘DONE’ report, we can see instantly whether or not we 
need to continue the SEARCH. 
@ The SEARCH routine will not be complete until both the ‘DONE’ 
report and the instruction concerned have been output by the 
computer. 
@ The Y key acquires importance only after the S key has been depressed 
and the instruction to be searched for has been entered in full. If the 
Y key is operated before the S key or before the instruction has been 
typed in, the computer will report ‘ILLEGAL KEY’. 
@ When a SEARCH action is interrupted, all the keys used by the PM 
Editor, except the Y key, become fully operative once more and so no 
‘ILLEGAL KEY‘ message will appear on the screen. Thus the original 
functions of the keys (including ‘S’ but excluding ‘Y’) are ignored while 
a SEARCH operation is in progress. Other keys which normally have no 
function at all, and so automatically cause an ‘}LLEGAL KEY’ message, 
do have a purpose once the S key has been depressed and the instruction 
has been found in at least one position in memory. 
All this does sound rather complicated, but will be explained in full detail 
in chapter 15, which is devoted to the description of the PME software. 


It is now high time for a practical example. This will make use of the 
computer printout listed in table 1. As can be seen in table 1, the PM 
Editor has been activated by way of a lukewarm start entry. The address 
pointers BEGAD and ENDAD have been chosen to select the full memory 
range occupied by the original monitor EPROM on the main board of the 
Junior Computer. After the Carriage Return key (CR) has been operated 
(not shown in table 1), the computer outputs the text ‘PM EDITOR’ 
and the first address and the instruction contained therein is printed: 
1C@0 85 F3. 

Let us see what happens when the instruction STAZ-POINTL is searched 
for (this is accomplished by depressing the keys: — S, 8, 5, F and A. Do 
not try to include spaces between the various characters — this must be 
left to PME, as otherwise the text ‘ILLEGAL KEY’ will be displayed and 
you will have to start all over again! 

Well, the operator knows that this instruction must be contained in the 
program, because memory location Q@OFA constitutes the much used 
display buffer POINTL. Not surprisingly, the computer comes across the 
required instruction almost immediately at address location 1098. 

By depressing the Y key eight times in succession the computer will 
output another seven address locations where the particular instruction 
can be found. Note that as we are moving up the address range, each 
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Table 1. An example of the warm start entry into PME and how the SEARCH 
function (key S) operates. 


JUNIOR 

1667 

1667 20 R 

BEGAD,ENDAD: 1C00,1FFF 
PM EDITOR 
ic@8 85 F3 
ic@8 85 FA 
iC83 85 FA 
1CB¢@ 85 FA 
1CDD 85 FA 
1D3D 85 FA 
1E37 85 FA 
LFDA 85 FA 
LFEA 85 FA 
DONE 

2000 OA 
iCBF C8 
ICEA C8 
iD55 C8 
LEGE C8 
1E56 C8 
1F7@ C8 
1FB6 C8 
1FBF C8 
1FC4 C8 
DONE 

2008 OA 
iC@@ 85 F3 
1C82 68 
1C@3 85 Fi 
1C65 68 
1C@6 85 EF 
1C@8 85 FA 
1CGA 68 
iC@B 85 F@ 
iC@D 85 FB 
ICOF 84 F4 
1Cliil 86 F5 
1C13 BA 
1c1i4 86 F2 
1Ci6 A2 @i 
iCi8 86 FF 
1CiA 4C 33 1c S8D 83 1A 
iCiF 8D 83 1A ¥ 

DONE 

2008 OA S8E 83 1A 
DONE 

2008 OA S8C 83 IA 
DONE 

2000 OA 


KR RRR RK 

Q © 
oO wn 
ry 

> 
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Ur 
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‘discovery’ will be situated at a higher address location. After the Y key 
has been depressed for the eighth time, all the locations containing the 
searched for instruction will have been found and the computer will 
acknowledge this fact by displaying the text ‘DONE’. This is followed 
by an instruction appearing at address location 2000. This is because the 
lukewarm start entry made the contents of the CEND pointer equal to 
those of ENDAD (= 1FFF). 

Next in table 1, the instruction C8 is searched for. This is the opcode for 
the instruction INY and appears no less than nine times in the monitor 
program. By the way, the address locations containing the above men- 
tioned instructions (STAZ-POINTL and INY) can be checked with the 
aid of the source listing of the monitor program which can be found on 
pages 194... 203 of Book 2. 

Let us continue with table 1. After depressing the T key, address location 
1CQ@ is displayed along with the instruction contained therein. The effect 
of the P key is to print out a section of the contents of memory and will 
be elaborated on later (see point G, number 9). 

We will end the description of table 1 with a small piece of research. We 
wish to know where and how the port B data direction register is affected 
inside the original monitor EPROM. The address of PBDD is $ 1A83. This 
register must be affected by a store instruction. There are only three 
possibilities: 

8D 831A STA-$1A83 

8E 831A STX-$1A83 

8C 831A STY-$1A83 

First, we shall check to see whether the instruction STA-$ 1A83 appears 
anywhere in memory. As can be seen, it does, once, at location 1C1F. 
However, the other two instructions can not be found anywhere. Thus, the 
only place where PBDD is affected is at an address which is part of the 
RESET initialisation routine in the original monitor program. 

Now for the next function utilised by the PM Editor. 


8. L (LIST) 


Printing the program 


The Printer Monitor program introduced various print commands, such as 
the hex dump. Up until now, we have been concerned with only those 
PME functions which allow a single instruction to be printed, sometimes 
followed by a message on the part of the computer. Key functions L and 
P (see point G, number 9) on the other hand, enable several instructions 
to be printed in sequence. | 

Depressing the L key results in a printout of all the instructions and Jabels 
contained within the particular memory range defined by the pointers 
BEGAD and CEND, starting with the first instruction or label situated at 
BEGAD. They are listed in the left-hand column of the video screen or 
printer. As soon as all the instructions have been output (the current 
address pointer CURAD is updated as each new instruction is printed), the 
computer reports the situation with the message ‘DONE’. Then the con- 
tents of the CURAD pointer (and the corresponding instruction) after it 
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has ‘passed’ the value of CEND are output. The LIST function enables the 
programmer to give a particular program a quick ‘once-over’ to see 
whether everything is correct. If the user wishes to examine any section of 
program at leisure, the BREAK key should be depressed (the computer 
will report ‘PM EDITOR’) followed by the P key — for reasons we shall 
describe now. 


9. P (PRINT) 


Printing program blocks 


This key performs a very similar operation to that of the L key. Supposing 
an instruction has just been displayed by PME. Exactly how is not relevant 
here. This instruction is displayed in the left-hand column and then the 
P key is operated. This appears on the same line, but in the right-hand 
column. Next, the following 15 instructions are output one below the 
other, again in the left-hand column. Therefore, a total of sixteen address 


locations and corresponding instructions, including the initial instruction, — 


are displayed. In the case of the Elekterminal, this will exactly fill the 
video screen. 

Obviously, the sixteen instructions must not contain the EOF character, 
77, as this will cause the computer to halt the printing process as soon as 
it has been displayed. 

N.B. An example of the operation performed by the P key is shown in 
table 1. 


10. INPUT 


Keys@...9andA...F 


As mentioned earlier, the INPUT function is carried out automatically. 
In other words, no function key has to be depressed before inputting 
data by means of the numeric keys. The only other key functions which 
require the entry of numeric data are INSERT (I) and SEARCH (S). This 
means that as far as these operations are concerned, either the | key or the 
S key has to be depressed before the numeric data can be entered. 

The PM Editor may well be waiting for data keys to be depressed after 
carrying out a particular function (this can be ascertained from the 
position of the cursor on the video screen or the position of the printer 
carriage. Both should be situated at the start of the right-hand-column. If, 
after this, the required numeric keys are depressed, the INPUT function 
will be activated automatically. 

Let us briefly recap on the operation of the !NPUT function. This func- 
tion stores the instruction or label entered by the operator in the memory 
location(s) immediately following the one(s) containing the last instruc- 
tion (printed in the right-hand column). In practice, the INPUT function 
is very similar to the INSERT function in some respects, but very different 
in others. 

Again, the instruction or label is not stored in memory until its entry is 
complete. Whenever a non-numeric key is depressed, either by mistake or 
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on purpose, the computer will report ‘ILLEGAL KEY’. This means having 
to re-enter the complete instruction. As before, the instruction and its 
address are printed in the left-hand column of the display on the following 
line and again the PM Editor provides the spaces between the instruction 
bytes in both columns. Therefore, do not try to add spaces as this will 
only lead to an ‘ILLEGAL KEY’ message! 

Since the }NPUT function leads to a new instruction to be added to the 
existing sequence, the EOF character and the contents of the CEND 
pointer move up a higher address location. The number of locations they 
move depends, of course, on the length of the instruction added. 

As the memory range defined by the pointers BEGAD and CEND is 
therefore extended, the chances are that the available memory will fill up 
after a while. This is illustrated in figure 1 and explained in the text 
describing the INSERT function. If there is no more room for any more 
instructions the computer will report: 

FULL 

XXXX ZZ ZZ ZZ 

where the address XXXX and the instruction ZZ ZZ ZZ correspond to the 
contents of CURAD being incremented as a result of the ‘rejected’ instruc- 
tion. This is different to the {NSERT function, where the address XXXX 
and the instruction ZZ ZZ ZZ belong to the last instruction printed before 
the rejected instruction was entered. | 

In spite of the fact that the instruction is rejected by the computer 
because of lack of memory, the current end address pointer (CEND) is 
incremented by the corresponding length of the rejected instruction. As 
before, the EOF character (77) remains where it is. 

The two listings in table 2 provide a practical example of the difference 
between INSERT and INPUT. In both cases a range of 17 memory lo- 
cations is defined (BEGAD, ENDAD) and an imaginary program is in- 
volved consisting of single byte instructions only. In the left-hand listing 
the instructions are entered by means of the INPUT function — apart 
from the initial instruction which has to be entered with the aid of the 
INSERT function. The right-hand listing in table 2 shows the same se- 
quence of single-byte instructions, but these are entered by means of the 
INSERT function only. 

In both instances the last instruction will be stored at location @20B. 
Neither ‘program’ has room for the instruction 58 (CLI). Therefore, the 
last available memory location is @20B, which proves the rule that the 
pointer ENDAD must contain a value four locations greater than the 
length of the program (since $@F — $@B is the same as 15 — 11 which 
equals 4). Address location @2@C contains the EOF character, 77, which is 
also shown in table 2 following the instructions printed with the aid of the 
P key. The three locations 020D, @20E and 92@F are reserved for the first 
label during the initial phase of the assembly procedure. 

Table 2 also shows another clear difference between the INPUT and 
INSERT functions as far as the order in which the instructions are actu- 
ally stored in memory is concerned. To put it in a nutshell: the INPUT 
and INSERT functions are not synonymous. In fact, the order is the 
exact opposite. Quite a different sequence of instructions is printed after 
the text ‘FULL’. 
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Table 2. How to enter an imaginary program containing only single byte instructions 
using the INPUT function, on the left-hand side, and the INSERT function, on the 
right-hand side. Note the different order in which the instructions are stored in 
memory. 


JUNTOR 


L548 
L504 


2A 
W2 A 
B24 
AQ? 
8293 
F204 
A2A5 
A205 
W2u7 
A2YR 
2A 
M204 
A2AB 
FULL 
AQVC 
B20 
2a 
AIAD 
G23 
AAA 
M25 
A206 
207 
IFPAR 
M209 
A 2K 
A?AB 
I2AC 


2”R 
RBEGAD,ENDAD: 
PM EDTTOR 


7 
CA 
ER 
cA 
BA 
AR 
AR 
68 
28 
BR 
BA 
if 
be 


Ly 
CA 
Ea 
Ce 
BA 
Ae 
a8 
68 
2% 


294, 20F 


TCA 
EP 
C8 
BA 
48 
WR 
AR 
28 
88 
FA 
1&8 
DR 
58 


x 
P 


JUNTOR 


L500 

i594 27 R 

BEGAN, ENDAD: 28@, 20F 
PM EDTTOR 


A200 77 TCA 
G@200 CA TER 
F240 ES ICR 
A208 Ce TEA 
M20 EA T4R 
w2aGg As iU 
ILLEGAL KEY 

A261) 48 THR 
A2AaA WR T48 
8209 AB 128 
W200 28 T8s 
A2ZAA RB TAA 
A2AGA Br T18 
AZAR GR TD8 
4208 DF T5R 
FULL 

APA NE | T 
A2A% DS Pp 
APM, i& 

AZAD WA 

a2a3 &8 

APAG 2R 

A205 58 

A2ZG6h JR 

gy207 Ae 

S208 EA 

a2ago C2 

320A ER 

W?PRR CA 

A2AC TF 


Readers should also note that the right-hand column in the second listing 
in table 2 deliberately called for the use of an ‘ILLEGAL KEY’. When @8 
was being entered a ‘1’ was typed instead of an ‘I’. This was remedied by 


depressing the ‘U’ key. 
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11. X (EXECUTE) 


Assembly 


Like the original editor program, PME operates on the basis of hexa- 
decimal labels. This means that the assembler we already know from Book 
2 can be used as it stands to assemble programs edited by PME. In other 
words, the labels can all be removed from the program once the corre- 
sponding address information and label number have been noted down in 
the label memory space which starts from ENDAD. 

Another reason for keeping the original assembler is that it is a very 
‘discrete’ program. During its execution no use is made of the display and 
the operator does not have to press any keys. !t is not until after the 
assembly process that the display reports its completion. 

The start address of the assembler remains the same as it was previously, 
namely $1F51. Once a program had been edited by means of the original 
editor program, the RST key had to be depressed, the start address of the 
assembler routine entered and then the GO key had to be operated. 
Alternatively, the NMI jump vector could be used to point to the start 
address of the assembler which could then be started by depressing the 
ST key. All this is now unnecessary as the PM Editor contains the X 
function. 

Once the X key has been depressed, the computer will jump to the start 
of the assembler routine after a couple of preparatory measures have been 
taken. One of these steps involves loading the NMI jump vector with an 
address inside PME after which the program proceeds to the assembly 
phase. Some time after the X key has been depressed (exactly how long 
depends on the length of the program) the seven segment display will light. 
The program will then be completely assembled. If the ST key on the 
original keyboards is then depressed, a non-maskable interrupt is enabled 
which will return the computer to the PM Editor. 

What happens next Is very interesting indeed . 

All the labels are output either on the video ‘screen or on paper via the 
printer! This includes their label numbers and their corresponding 
addresses. So an imaginary program containing five labels could well look 
like this: 

LAB $10: $6200 LAB $12: 6208 LAB $ 14: 620C LAB $ 13: 213 

‘LAB $15: 622B 

PM EDITOR 

XXXX ZZZZ2ZZ 

All this is possible as the labels are still stored in memory at the end of 
the assembly process. Each label requires three memory locations and the 
label memory range starts at ENDAD, each consecutive label having a 
Jower address. 

As can be seen, up to four labels can be printed on a single line. The labels 
are printed in the order they are discovered, noted down and deleted 
during. the first phase of assembly. Thus, the addresses corresponding to 
the labels increase as they are printed even though the label numbers 
may jump around a bit. The reason for this was illustrated in chapter 9 of 
Book 2, in the section discussing the assembler software. It is entirely up 
to the programmer as to whether the label numbers and the addresses both 
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increase in regular order. The programmer does not necessarily have to 
stick to any particular label number order, although it is advisable for the 
sake of clarity. In the example we have just given, the label numbers 
appear in the order 10, 12, 14, 13, 15. There is no label number 11, per- 
haps because the program has been modified since it was first con- 
ceived. 

Once all the labels have been printed (in this particular instance there are 
no columns) the computer will report with the text ‘PM EDITOR’ ona 
new line. Next, the first address and instruction of the assembled program 
is printed on the following line, so address XXXX represents the contents 
of the BEGAD pointer. After assembly and after all the labels have been 
stored, a jump was made to the warm start entry address of PME. 

That covers all the key functions of the PM EDITOR... at last! It is 
now time to deal with the practical aspects of programming the extended 
version of the Junior Computer. Readers did get a glimpse of what is 
involved in chapter 12 of Book 3, where certain PM subroutines were 
experimented with. 


Using the PM EDITOR 


First, the operator (and the computer) should start by having a warming 
up session: 


1. Eight bit hexadecimal-to-decimal conversion 


Pages 9... 25 in chapter 5 of Book 2 were devoted to putting the original 
editor program into practice with the aid of a concrete example. The 
example used a routine called DISPLAY (together with various sub- 
routines) which displayed the decimal value of an eight bit hexadecimal 
number. The number was entered by depressing two hexadecimal keys. 
The program itself, or rather its algorithm, was not discussed in detail at 
the time and we do not intend to go into it here either, at least not until 
point 2, where an extended version will be described. What we are con- 
cerned with here is to point out the main differences between the pro- 
cedures of the original editor program and the PM Editor. 

Compare the listing on pages 23 and 24 of Book 2 with the one in table 3. 
This starts with PM (the computer reports ‘JUNIOR’‘). Next, the PM 
Editor is activated by means of acoid start entry. The first ‘instruction’ is 
label 1@ and is entered with the aid of the INSERT key. This is necessary 
because otherwise the EOF character, 77, will remain at address 0200. It 
makes no difference to the current end address pointer whether the first 
instruction is entered by means of the INPUT or INSERT function; CEND 
will always move to a higher address. However, if the program is started 
with the ‘opcode’ 77 (0200 is also the start address!) the operator is asking 
for trouble! 

All the instructions and labels after this are entered by means of the 
INPUT function, which is merely a question of pressing numeric keys. A 
few lines further on in table 3 we find a ‘K’ in the right-hand column and 
the following instruction is entered by way of the | key. This is because 
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Table 3. Using the PM Editor to enter the DISPLAY program (see pages 9... 25 in 
Book 2 and example 1 in this chapter). 


JUNIOR 
1586 

1508 20 R 

BEGAD,ENDAD: 200, 3FF 

PM EDITOR 

@200 77 IFF 19 80 
9200 FF 19 80 AQ OO 
$203 AO OG 85 F9 
9205 85 FQ 85 FA 
9207 85 FA 85 FB 
9209 85 FB FF il 60 
@20B FF li 86 20 6F iD 
620E 20 6F 1D 19 10 
6211 if 10 85 F9 
62i3 85 F9 85 F7 
@215 85 F7 K 

6215 77 185 D7 
@215 85 D7 20 12 06 
G2i7 20 i2 @ 4C ll 60 
@2iA 4C ll @@ FF 12 06 
@21D FF 12 60 20 14 OB 
6220 20 14 20 85 PA 
6223 85 FA 84 D7 
$225 84 D7 20 14 @@ 
9227 20 14 ae A2 @4 
G22A A2 04 FF 13 66 
922C FF 13 @@ OA 

G@22F OA CA 

0230 CA DB 13 
9231 DO 13 65 PA 
6233 O05 FA 85 FA 
0235 85 FA 84 FB 
0237 84 FB 6 

6239 60 FF 14 @@ 
@23A FF 14 90 AG @@ 
923D AG @O 84 D8 
@23F 84 D8 20 15 @@ 
9241 28 15 0@ i8 

9244 18 AS D7 
6245 A5 D7 69 GA 
0247 69 BA 69 

249 60 FF 15 @@ 
Q24A FF 15 0@ 38 

824D 38 A5 D7 
O24E AS D7 E9 OA 
6250 ES OA 85 D7 


@252 85 D7 A5 D8& 


G@254 
8256 
8258 
G25A 
825B 
@25E 
A261 


LAB $18: 


8280 
A202 
8204 
A206 
8208 
G290B 
B20D 
O20F 
G2i1 
@2i4 
G2i7 
G21A 
G21C 
O@2iE 
G@221 
8223 
B224 
8225 
$227 
@229 
@22B 
@22D 
@22E 
8230 
8232 
8235 
8236 
8238 
G23A 
923B 
G23C 
G@23E 
G24G 
A242 
08244 
8246 
6248 
G@249 
G@24C 
G24D 


30 


A5 
Ee 
38 
C8 
4c 
FF 
He 


AQ 
85 
85 


D8 
GO 
16 


15 
16 


00 
9B 


E9 
38 
C8 
4c 
FF 
60 
xX 


8B 
16 


15 66 
16 39 


S@280 LAB Sil: $8208 LAB S$i2: 
LAB $14: $822E LAB $15: $823B LAB $i6: $@24C 
PM EDITOR 


89 
Bg 
FA 
FB 
6F 
F3 
FQ 
D7 
L7 
88 
2E 
FA 
D7 
2E 
g4 


FC 
FA 
FA 
FB 


8B 
3B 


D7 
GA 


D7 
OA 
D7 
D8 
GO 
G4 


3B 


LD 


02 


32 


G2 


82 


G2 


P 


$62i7 LAB $13: 


$8223 


85 F7 was inadvertently entered instead of 85 D7, the operation of the 
K key corrects this. 

It is a matter of minutes before the entire program is well and truly stored 
in memory. There is a much quicker way of checking for errors than 
previously (when using the original editor program). After all, a total of 
sixteen lines can be displayed at the same time on the Elekterminal and if 
a suitable printer is available the programmer can run his/her eyes over the 
complete listing. 

The next phase in the operation involves depressing the X key to assemble 
the program. After this, the display will light and the ST key (STOP, NMI) 
on the original keyboard can be operated. As a result, PME will display 
all the labels before reporting ‘PM EDITOR’ and printing the first instruc- 
tion of the assembled program. 

To obtain a complete listing of the assembled program all that is required 
is to depress the P key three times in succession (remember to wait while 
the particular block of data is being printed before depressing the P key 
the second and third times!). Once the programmer acquires the knack of 
working with PME, a program such as that given in table 3 can be entered 
and running in about five minutes. Of course, entering pre-recorded 
programs from tape is even quicker. 


2. Sixteen bit hexadecimal-to-decimal conversion 


We now wish to write a program which wil! convert a sixteen bit hexadeci- 
mal value into its decimal equivalent. Each (up to) four-digit hexadecimal 
figure must be entered and printed at the beginning of a new line. The 
Junior Computer must be informed when the hexadecimal value has been 
completely entered by depressing the ’:’ key. The decimal equivalent must 
be printed on the same line after this colon. The computer must also be 
able to deal with 4, 8 or 12 bit hexadecimal numbers. If more than four 
numeric keys are depressed in a single row by mistake or on purpose, the 
last four keys to be depressed must be processed. Now let us translate the 
above into usable software. 
The figure 1981 contains a single thousand. Thus, if we subtract two 
thousand from it we are left with a negative result. Similarly, 1981 con- 
tains nine hundreds, eight tens and one unit. 
The highest possible 16 bit hexadecimal figure is $F FFF. This corresponds 
to the decimal figure 65535. In other words, the highest contribution of 
the decimal version of the figure is made by the ten thousands. There are 
six of them. Thus: 
10,000,)5 corresponds to $2719 
1,000,9 corresponds to $93E8 
100,9 corresponds to $9064 
1019 corresponds to $@00A 
The procedure is as follows. After a figure has been fully entered, the 
value $271@ (ten thousand) is subtracted from it until the result becomes 
negative. Then $2719 is added to this. The number of times that $2719 
was subtracted without causing a negative result is recorded in the Y 
register and is then printed. It is possible, of course, that the number of 
ten thousands in the decimal figure will be zero. 
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Next, the same procedure is repeated. but this time the value $03E8 is 
subtracted from the remainder until the number becomes negative. The 
new remainder is found by adding $@3E8 to the negative result. The 
number of hundreds and then tens is calculated and printed in the same 
way. At the end of the procedure, the remainder will be a value between 
O and 9 and is therefore printed without any need for further calcu- 
lations. 
Before describing the actual program, let us look at the PME subroutines 
which are implemented: 
|. CRLF Address $11E8. Two consecutive commands to enable data to 
be printed at the start of a new line. 
tl. RECCHA Address $12AE. This waits for a key to be depressed and 
then stores the ASCII value in the accumulator. 
(11. HEXNUM Address $126F. This processes any hexadecimal key which 
is depressed. After the ASCII code is converted into a data nibble, the 
latter is shifted into the input buffer INL from right to left. The buffers 
INH and INL contain data corresponding to the last four hexadecimal keys 
to be depressed. A high order nibble is always ‘older’ than a low order 
nibble. {f any non-hexadecimal keys are depressed (G .. . Z etc.) the com- 
puter reports the error with ‘WHAT ?’. 
{V. RESIN Address $1268. This clears the contents of the INH and INL 
buffers. 
V. PRNIBL Address $129B. This is the second half of the subroutine 
PRBYT. It prints the low order data nibble of the contents of the 
accumulator. For further details, readers are referred to chapter 14. 
Now for the program. The main routine is called, appropriately, HEXDEC 
and is shown in figure 2. To start with, the CRLF routine is used to make 
sure that the new data is printed at the start of a fresh line and then the 
computer waits for a key to be depressed. Then the computer checks to 
see whether the depressed key was the colon or not. If so, the figure must 
have been entered and the conversion and printing procedure described 
earlier can begin. 
First of all, however, let us see what happens if hexadecimal data is en- 
tered instead of the colon. The branch instruction (BNE) leads the pro- 
cessor to the label DATA and to the subroutine HEXNUM. If it was not a 
hexadecimal key, HEXNUM reports ‘WHAT’ and resets the Z flag. In that 
case, the following branch instruction will make the program proceed to 
the label NEW: the contents of the buffers INH and INL are cleared and 
the computer returns to the start of the program. We then have to start 
all over again by typing in a new hexadecimal figure. 
if the computer does detect a hexadecimal key, the HEXNUM subroutine 
makes sure that the corresponding data nibble is stored in the low order 
nibble of INL. Buffer INH always contains the first two data nibbles to be 
entered and INL contains the last two of the four hexadecimal keys to 
be depressed. Thus a high order data nibble is always less recent than a 
low order one. Unused nibbles are always zero. 
What happens when the processor encounters a colon? See the section of 
program following the left-hand BNE instruction in figure 2. Memory 
locations POWERL ($0000) and POWERH ($0901) are loaded with data 
related to checking the number of ten thousands, thousands, hundreds and 
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2 $ 200 






26 


® 


20 


CT? 


< 
& 


LDA #18 
85 STAZ — POWERL 
Ag LDA #27 
85 STAZ — POWERH 
26 AMOUNT 
AS LDA # E& 
85 STAZ - POWERL ad 
Ag LDA #93 
61 


AIC 


8S STAZ — POWERH 
26 AMOUNT 


— 
Qo 
w 


AS LDA # 64 
85 STAZ — POWERL 0 
Ag LDA # 60 


85 STAZ — POWERH 61 


- 
Qo 
wv 


26 AMOUNT 
LOA#6A 


85 STFAZ — POWERL 


Ag LDA #66 
85 STAZ — POWERH 
20 AMOUNT 


AS LDAZ — INL 
20 PRNIBL 1298 10° 


§ 


> 
© 


81912 2 


Figure 2. The main routine, HEXDEC, in the program which enables a four digit 
hexadecimal number to be converted into the corresponding decimal figure and the 
result to be displayed. 
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3b 


AOCZ — POWERL 


STAZ — INL 


LDAZ — INH 
ADCZ — POWERL 
STAZ — INH 
TY 








1298 


81912 3% 


AMTEND 


© 


LDAZ — INL 


S8CZ — POWERL 


STAZ — INL 
LDAZ — INH 


SBCZ — POWERH 


STAZ — !NH 





81912 3a 


F8 


FS 
FS 
61 


F9 


81912 3c 


Figure 3. The subroutine AMOUNT in figure 3a determines how many times a certain 
power of ten appears in the entered hexadecimal number and also sees to it that this 
figure is printed. The subroutine makes use of two other subroutines, namely CORPR 


(figure 3b) and SUBTRA (figure 3c). 
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tens are contained in the input figure four times in succession. Subroutine 
AMOUNT is also called four times in succession to calculate the number of 
thousands etc. and to print this. After AMOUNT has been run four times, 
the various amounts are known and are printed and the operator is left 
with a remainder — a certain number of units. This remainder is stored in 
INL and is printed by means of the PRNIBL subroutine. The computer 
then jumps back to HEXDEC via NEW (clear buffers) to deal with the 
next hexadecimal figure. 

A few more details about subroutine AMOUNT. This is shown in figure 3a. 
The subroutine begins by clearing the contents of the Y index register. 
Then subroutine SUBTRA is called after the label AMNT. This subroutine 
is shown in figure 3c. The value contained in locations POWERH and 
POWERL is subtracted from the hexadecimal number (INH, INL). 1f the 
result of the subtraction is either positive or zero, the carry flag will be 
logic one. A negative result, on the other hand, will make it go low. The 
carry business is very easy to remember: 

carry = borrow and so borrow = Carry. 

If the result is negative, an amount will have to be borrowed, so the 
borrow will be logic one and the carry logic zero. If the result is greater 
than or equal to zero, nothing will have to be borrowed. 

if the result is positive, the contents of the Y index register will be in- 
cremented (INY) and another subtraction takes place — the program 
jumps back to the label AMNT. If this subtraction produces a negative 
result, the computer proceeds to the label AMTEND. The value con- 
tained in the Y register corresponds to the number of times the hexa- 
decimal figure was decremented without leading to a negative result. 

The rest of the AMOUNT subroutine can be explained in very few words. 
After the label AMTEND the subroutine CORPR is called (shown in figure 
3b). Firstly, the contents of locations POWERH and POWERL are added 
to those of the buffers INH and INL, as a result of which the buffers 
contain a value corresponding to the situation where the next/last figure 
is to be calculated. The contents of the Y register are transferred to the 
accumulator and the subroutine PRNIBL is called to print the number 
that has just been calculated. 

The routines in figures 2 and 3 are entered into the Junior Computer with 
the aid of the PM Editor. Table 4 provides a ‘hard copy’ version of all the 
key operations required and the corresponding reactions by PME. To 
start with, PM is activated and PME entered by way of a cold start entry 
then all the instructions and labels are typed in. The first label is entered 
with the aid of the INSERT function as always. After pressing the X key 
the program is assembled. Following this, the ST key on the main board of 
the Junior Computer is depressed causing all the labels and their addresses 
to be printed on the video screen or the printer. Then the text ‘PM 
EDITOR’ will appear on the screen followed by the start address of the 
program and the instruction held therein. 

The program can now be executed, which means having to leave PME, as 
this was activated by means of a warm start entry after the business with 
the labels. Then RST, 1, @, 8, @, GO and RUBOUT (=RES) are operated 
on the main keyboard, in that order, to start PM. This is necessary as the 
HEXDEC program makes use of certain PM routines. The 1/O parameters 
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Table 4. Using the PM Editor to enter the HEXDEC program and its associated 
subroutines (see also figures 2 and 3 and example 2). 


SIXTEEN BIT HEXADECIMAL TO DECIMAL CONVERSION 


HEXDEC 

JUNIOR 

1500 

1584 20 R 

BEGAD,ENDAD: 290, 3FF 

PM EDITOR 

G@208 77 IFF 10 60 
6200 FF id 00 26 E8 li 
0203 20 E8 il FF ii @0 
9206 FF il @@ 20 AE 12 
6209 20 AE 12 CO 3A 
G29C CO 3A DS 12 
Q20E DO 12 AO id 
9210 AD ig 85 96 
0212 85 a9 AQ 27 
6214 AQ 27 85 91 
216 85 di 20 14 OG 
218 20 14 OB AQ EB 
@21B AQ E8 85 oo 
82iD 85 OO AD 93 
@21F Ad 83 85 #1 
9221 85 @1 26 i4 OB 
9223 20 14 aa AD 64 
$226 AS 64 85 oo 
228 85 9B AQ a0 
422A AQ AO 85 Gi 
622C 85 61 28 14 ag 
922E 20 14 op AQ @A 
$231 AQ OA 85 46 
233 85 HO AD BB 
8235 AD 86 85 Gl 
$237 85 Bi 28 14 OD 
6239 20 14 ao A5 F8 
023C AS Fe 28 9B 12 
623E 20 9B i2 4C 13 66 
9241 4C 13 OD FF 12 90 
9244 FF i2 46 20 6F i2 
9247 20 6F 12 DI 13 
624A DA 13 4c ll oo 
@24C 4C ll @@ FF i3 86 
924F FF 13 49 28 68 12 
6252 20 68 12 4C iB Oa 
80255 4C i@ G0 FF i4 go 
9258 FF 14 a0 AG AG 
@25B AG OB FF 15 90 
625D FF 15 #6 28 18 OG 
6260 20 i8 ao 94 16 
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0263 93 16 C8 


g265 C& 4C 15 3G 
8266 4C 15 66 FF 16 99 
A269 FF 16 O80 20 17 89 
G26C 20 17 G8 54 

QA26F 6¢ FF i7 86 
6270 FF i7 86 18 

4273 18 A5 F8 
6274 AS F8 65 68 
9276 65 808 85 FS 
9278 85 F8 AS FQ 
@27A AS FY 65 Bl 
G@27C 65 @1 85 FY 
@27E 85 FY 98 

G280 98 20 9B 12 
9281 2@ 9B i2 69 

8284 60 FF i8 8& 
9285 FF 18 88 38 

288 38 AS F8 
9289 AS F8 E5 @@ 
@28B E5 9@ 85 F8 
@28D 85 F8 A5 FY 
@28F A5 FYI E5 61 
9291 E5 Ol 85 F9 
9293 85 FY 68 

G295 6@ 

6296 77 X 


LAB $18: $@200 LAB $11: $0203 LAB $12: $823E LAB $13: $8246 
LAB $14: $024C LAB $15: $@24E LAB $16: $0257 LAB $17: $@25B 
LAB $18: $@26D 

PM EDITOR 

@200 20 E8 il 

JUNTOR 


266 

G@208 28 R 
FFFF:65535 
FFF: 04@95 
FF:8@8255 
F:80015 
ABCD: 43981 
1000: 64096 
Tr 

WHAT? 


CF16:53014 
14F8:65368 
L7FF: 86143 
18024:04132 
2710:19000 
03E8: 016000 
4064: 40198 
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PABA: A681 
: M2082 


JUNIOR 


153D 


153D ADR 
PM EDITOR 


9200 
A203 
B205 
8208 
O2B0A 
G26C 
G2GE 
8210 
8212 
6215 
8217 
6219 
G21B 
A21iD 
G22 
8222 
8224 
8226 
$228 
622B 
G22D 
G@22F 
A231 
9233 
82356 
4238 
$2 3B 
G@23E 
@241 
8243 
8246 
249 
B824C 
G24E 
@251 
9253 
8254 
8257 
O@25A 
825B 
B25C 
G25E 
9260 
262 
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29) 
29 
cg 
DOG 
AY 
85 
AQ 
85 
20 
AQ 
a5 
AY 
85 
20 
AQ 
85 
AS 
85 
20 
A9 
85 
AQ 
85 
29 
AS 
20 
4c 
26 
DO 
4C 
26 
4c 
A 
20 
92 
C8 
AC 
28 
6¢@ 
18 
A5 
65 
85 
A5 


E8 
AE 
3A 
34 
1¢ 
88 
2: 
B61 
4c 
E8 
08 
G93 
Bi 
4c 
64 
08 
5B 
01 
4c 
GA 
8B 
9@ 


Ba 
12 


A2 


B2 


G2 


B2 
12 
G2 
12 
92 
82 
G2 


G2 
G2 


8264 
$266 
§268 
9269 
G26C 
$826D 
B826E 
G27 
#272 
8274 
8276 
8278 
O27A 
827B 


65 
85 
98 
20 
60 
38 
A5 
E5 
85 
A5 
E5 
85 
68 
77 


81 
F9 


9B 


12 


must be established accordingly, so the original monitor program must be 
dispensed with here! 

After HEXDEC is started, a number of hexadecimal numbers are keyed in 
and their decimal equivalents are printed behind the closing colon. By 
operating the colon key right away, the value 0009 will be printed. 

So the program works correctly. To be absolutely sure that we know what 
is going on, we would like to see the program in its assembled form. This 
involves a warm start entry into the PM Editor. As table 4 shows, the start 
address used is 153D instead of 1533. This is feasible as the program sec- 
tion between 1533 and 153C is devoted to defining the BREAK jump 
vector and to resetting the stack pointer (see chapter 15). Address 153D 
can be used instead of 1533, because we do not intend to use the BREAK 
key anyway (as this would bring the text ‘JUNIOR’ on to the display, in 
other words, the computer would return to PM). This can also be seen in 
the last section of table 4, where HEXDEC and its three subroutines are 
listed in three and a bit blocks of instructions. 


3. Decimal addition 


The next example involves a program which is not particularly practical, 
especially if you happen to own a calculator, but the important thing here 
is to learn how to use PM and PME subroutines. 
We wish to write a program which will add two decimal numbers together. 
The first number can have a maximum of eight digits (the result of a pre- 
vious addition) while the second number (the one to be added) can only 
have up to six digits. Once the addition has been performed, another 
(up to) six digit number can be added to the cumultative total — uptoa 
maximum value of 99,999,999. 
The first six digit number is entered by depressing up to six decimal keys 
(0...9) followed by a full stop ’.’. Next, the operator indicates a number 
of not more than six digits which has to be added to the previous one. This 
is the procedure: first enter the number followed by ‘P’ (for plus). The P 
key is used instead of ‘+’ to avoid having to depress the shift key for each 
addition as this can be somewhat of a bind! Any keys other than ‘0... 9’, 
‘* and ‘P’ (therefore including the hexadecimal keys A... F) will auto- 
matically lead to the error message ‘WHAT ?’. 
in practice, things will look like this: 
123456. 

123456 
654321P 
+ 654321 
= §0777777 
1P 
+  §66001 
= §0777778 
The reaction by the Junior Computer is printed in bold characters as 
opposed to the key operations performed by the operator which are 
shown in normal type. As a matter of fact, the operations performed by 
the user look a little different when they appear on the screen/printer 
as a line ending in '.’ or ‘P’ is overwritten by the first reaction from the 
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computer. This means that the results cannot be printed out on a printer 
as two lines will be printed one on top of the other. A video terminal such 
as the Elekterminal presents no problems as each line is erased prior to 
being overwritten on. If a paper printer is used, the hardware echo — 
which prints the user operations — can be suppressed by switching from 
the ‘half-duplex’ mode to the ‘full-duplex’ mode. The result is a clear 
survey of all the various figures neatly listed. | 

The program is called DECADD and is shown in figure 4. Various memory 
locations arg involved, so we will discuss these first: 

INL address $@0F8 entered figure 10° and 10! 

INH address $@@F9 entered figure 10? and 10° 

POINTL address $O0FA entered figure 10° and 10° 

DECA address $@9DE cumulative figure 10° and 10! 

DECB address $@@DF cumulative figure 10? and 10° 

DECC address $@0E@ cumulative figure 10* and 10° 

POINTH address$@@FB cumulative figure 10° and 107 

As mentioned previously, the maximum result of the addition (= cumu- 
lative figure) is 99,999,999. 


The DECADD program and its associated subroutines make use of the 
following PME routines: 
1. CRLF, RECCHA: see example 2. 
Hl. PRCHA Address $1334. This prints a character or produces a control 
function provided the corresponding ASCII code is stored in the 
accumulator. 
iil. PRSP Address $11F3. This simply prints a space... 
IV. PRBYT Address $128F. This prints the high order nibble of the 
accumulator contents followed by the low order nibble after con- 
verting them into their respective ASCII codes. 
V. MESSY Address $11D6. Despite its name, this is quite an orderly 
subroutine, as it prints text obtained from a look-up table. The text 
is defined by the initial value contained in the Y register and by the 
position of the EOT character $03 in the look-up table. More details 
about this will be provided in chapter 14. 
The DECADD program starts by clearing the three buffers so that a six 
digit number can be entered. Then subroutine CRLF ensures that the 
entered data is printed at the start of a new line and the program waits 
during RECCHA for a key to be depressed. The keys ‘0...9, °.” and 
‘P’ are the only ones which mean anything to the program, ali the others 
are ignored. 
Suppose that a key other than ‘.’ or ‘P’ is depressed. The DECADD pro- 
gram includes a section of program labelled DATA and the subroutine 
DECNUM, which is very similar to the subroutine HEXNUM described 
earlier. Only the keys 0...9 are processed into valid data. In all other 
cases the computer responds with ‘WHAT?’ and resets the Z flag. Any 
key in the range 0...9 is processed into a nibble that is shifted into the 
INL buffer from right to left, as a result of which all the existing nibbles 
move up one place in the three buffers. Thus, POINTL, INH and INL con- 
tain data corresponding to the last six keys to be depressed. A high order 
nibble is always ‘older’ than a low order nibble. The original high order 
nibble in POINTL is lost. If less than six keys were depressed, that is if 
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LDA #66 











STAZ — INL 





Fs 
F9 





STAZ — INH 





yes 


STAZ — POINTH 















L 
ae a 
[som] 
[ 


STAZ — DECB 






[Frm 
a 
a 


JwMPp — DECADD 









1 


"CR" 


1334 “CR” 






11F3 "UU 
11F3 "UU" 









WF3"U" 







yes 
Cc 





LDA # 3D 
LOAZ — POINTH } FB 


PRBYT 


JmMP — DECADD 







g1912 4 


Figure 4. The main routine DECADD of the program which enables a six digit 
decimal number to be added to an eight digit decimal number: the cumulative figure. 
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the figure were less than six digits, the unused nibbles will be zero. After 
the DECNUM subroutine the state of the Z flag informs the computer 
as to whether the process should be repeated from scratch (after dis- 
covering an error) or whether the computer can expect another data key, 
in which case the processor jumps back to label NEXT. 

When the plus key is operated, after the end of each figure entry, the 
processor clears the contents of buffer POINTH — just in case the result 
of the addition (cumulative figure) exceeds 999,999. Then the contents 
of buffers INL, INH and POINTL are transferred to buffers DECA, DECB 
and DECC respectively. Following this the program performs a few control 
functions. The carriage return (CR) command takes the cursor back to the 
beginning of the same line. Then three spaces are printed (three PRSP 
operations). The SHOW subroutine simply prints out the figure that has 
just been entered. After that, a return is made to the start of DECADD. 
The subroutine SHOW is given in figure 5a and consists of three load 
operations and calls subroutine PRBYT three times. All very simple! 

Now let us see what happens when the P key is depressed, that is to say, 
when the entered figure is to be added to the current cumulative figure. 
The procedure starts with SHOWA (see figure 5b). Again, this subroutine 





5a 
128F “CR 1334 
PRBYT 128F “Li” 11F3 
FA 
128F 
F9 
128F 
Fa 
81912 5a <7 
11E8 
81912 5b 





Figure 5. Subroutine SHOW (figure 5a) used by DECADD (figure 4) enables the six 
right-hand digits in the cumulative figure to be printed. Subroutine SHOWA 

(figure 5b) prints a plus sign followed by two spaces followed by the new six digit 
number to be added to the cumulative figure, thereby producing a new cumulative 
total. 
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does nothing but print characters. Starting at the beginning of the same 
line it prints a ‘+’, two spaces and then the figure that has just been typed 
in. This is followed by another jump to the CRLF subroutine so that the 
cursor is placed at the beginning of the next line. 

The figure just printed has to be added to the current cumulative figure 
and the result then acts as the new cumulative figure. The state of the 
carry flag determines whether the contents of the ‘overflow’ buffer, 
POINTH, are modified or not. The addition is carried out in the decimal 
mode: it starts with the instruction SED. Immediately after the addition 
the computer reverts to the hexadecimal mode (CLD). This is necessary 
because a number of PM subroutines will not function correctly if the D 
flag is set. This was discussed at length in chapter 12 of Book 3. 

After the addition the ‘equals’ sign (=) is printed on the next line. Then 
the contents of POINTH are printed and the subroutine SHOW prints out 
the contents of the other three buffers. Finally, the program returns to the 
start of DECADD. 

Now for subroutine DECNUM, which is shown in figure 6a. This starts off 
by calling yet another subroutine namely ASCDEC (see figure 6b). The 
ASCII code of the depressed key is stored in the accumulator. The ASCII 
codes 3@...39 correspond to the numbers @...9. The ASCDEC sub- 
routine tests the validity of the depressed key. Essentially, the outcome 
of the routine is that the N flag will be set and the Z flag therefore reset if 
the depressed key was not valid. If a valid key is depressed, the instruction 
AND #G@F (after label VALID) converts the ASCII codes 3@... 39 into 
a data nibble with the value 00 .. . 09. 

Back to DECNUM. The BMI instruction after the jump to the ASCDEC 
subroutine leads the program to label NOTVAL if a non-valid key was 
depressed. After printing the text ‘WHAT?’ (MESSY, where the contents 
of the Y index register are 46 — see chapter 14) the N flag is set. This 
means that the Z flag will be reset. A valid key entry means that the 
contents of buffers INL, INH and POINTL have to be shifted four pos- 
itions to the left and the data for the depressed key will have to be shifted 
into INL. All this is accomplished during the DECNUM subroutine after 
the label DCNMA. To complete the procedure the Z flag becomes set so 
the N flag becomes reset. 

It is now time to edit and then assemble the DECADD program and all 
its subroutines. How this is done is shown in table 5. After the start of 
PM (text report = ‘JUNIOR’) and the cold start entry into PME, all the 
instructions involved in the program are entered into the computer, the 
first one by means of the INSERT function. After depressing the X key 
the program is assembled. Then the ST key on the main keyboard is oper- 
ated and all the labels are listed and the program makes a warm start entry 
into PME. The assembled version of the DECADD program is then listed 
by depressing the P key the relevant number of times. 

Since, as mentioned earlier, a user line is overwritten by the first reaction 
line on the part of the computer, no examples of the running of the 
DECADD program are shown in table 5. If required, user lines may be 
preserved by replacing the two instructions in the program which ‘print’ 
a carriage return by the instruction JSR-CRLF. It is a useful exercise for 
the user to know where these are and how to modify the not-yet-as- 
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LDY #46 
MESSY 
LDY # FF 






1106 
11€8 










ASLZ — INL 
ROLZ — INH 
ROLZ — POINTL 










STAZ — INL 
LDY # 06 


Z=1;N=68 





81912 6a 


sembled program with the aid of PME. The procedure for this will be 
illustrated in example number 5 a few pages further on. 


4. Decimal-to-hexadecimal conversion | 


Assuming that it is possible to write a program to convert hexadecimal 
numbers to decimal numbers (see figure 2 and example 2), it must surely 
be possible to write a program to convert decimal numbers to hexadecimal 
numbers. This is in fact no problem as can be seen from the DECHEX 
program given in figure 7. This looks remarkably similar to the program 
given in figure 2. A number is entered (after label DATA in figure 7) with 
the aid of the DECNUM subroutine (see figure Ga). This means that three 
figure buffers are available giving us the possibility of entering a six digit 
decimal number. : 

However, in this instance we are only interested in decimal numbers from 
zero up to and including 65,535 (= $FFFF). This is because the computer 
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N=9;2=86 





81912 Gb 


‘Figure 6. Subroutines DECNUM (figure 6a) and ASCDEC (figure 6b) used by the 
DECADD routine (figure 4) and used by the DECHEX routine (figure 7) process the 
valid decimal numbers 0. . . 9 stored in the buffers POINTL, INH and INL. 


is unable to deal with hexadecimal figures containing more than sixteen 
bits without increasing the complexity of the various subroutines. 
The DECHEX program is virtually identical to the previously de- 
scribed HEXDEC program. The computer has to determine (in subroutine 
AMOUNT) how many times the figure 4096 (16° or $1000 appears in the 
entered decimal number and then how many times the number 256 (16? 
or $100) appears and after that, how often 16 (16 or $10) appears. And 
finally, the DECHEX program checks the number of units remaining in the 
decimal figure (16° = 1 = $1). 
Any decimal figure which is equal to or greater than the value 65536 
(167 = $1000) will cause problems in DECHEX as the computer will be 
unable to detect the number of 65535 figures present in the entered 
number. Instead, a number of 4096 figures in excess of 15 will be found. 
Despite this warning, a preventive measure has been included in the 
routine to save any damage being caused by any nonsense (in the event 
where the entered number is greater than 65535). The high order nibble of 
(continued on page 56 >) 
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Table 5. Using the PM Editor to enter the DECADD program and its subroutines (see 
aiso figures 4... 6 and example 3). 


SIX DIGIT DECIMAL ADDITION 
UP TO 99,999,999 


DECADD 

JUNIOR 

1584 

15800 228 R 

BEGAD,ENDAD: 200, 3FF 

PM EDITOR 

8208 77 IFF 99 928 
9200 FF 99 @¢ AQ 88 
8203 AY OO 85 F8 
62065 85 F& 85 FI 
9207 85 FY 85 FA 
@209 85 FA 20 E8 Ll 
Q20B 26 E8 ii FF 98 68 
G2GE FF 98 @6 20 AE 12 
9211 20 AE 12 C9 2E 
@214 C9 2E D@ 97 
8216 DA 97 AQ O86 
0218 AY BB 85 FB 
AQ2iA 85 FB A5 F8 
G82iC A5 F8 85 DE 
AZ2iE 85 DE A5 FY 
0228 A5 FY 85 DF 
Q@222 85 DF AS FA 
@224 A5 FA 85 E@ 
9226 85 ED AQ GD 
9228 AY BD 26 34 13 
@22A 20 34 13 20 F3 il 
G@22D 26 F3 li 26 F3 1l 
4230 20 F3 11 20 F3 ll 
9233 20 F3 ll 20 95 88 
4236 20 95 @9 4C 99 96 
@239 4C 99 88 FF 97 @@ 
Q@23C FF 97 8@ C9 5@ 
@23F C9 54 D8 96 
G24] DB 96 20 94 AG 
9243 280 94 AO FS 

9246 F8 18 

8247 18 AS DE 
9248 AS DE 55 F8 
§924A 65 F8 85 DE 
@24C 85 DE A5 DF 
A24E AS DF 65 F9 
#256 65 FO 85 DF 
8252 85 DF AS E@6 
@254 A5S EG 65 FA 
8256 65 FA 85 EG 
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8258 
G25A 
825C 
@25E 
9268 
G261 
8263 
G266 
$268 
G26B 
G@26E 
G271 
8274 
9277 
8279 
G27B 
G27E 
G28 
928 3 
8285 
8288 
G28A 
@28D 
G28E 
8291 
6293 
8296 
8298 
0298 
G29E 
O2Al1 
G@2A3 
G2A6 
G2A8 
@2AB 
@2AD 
G@2B@ 
Q2B3 
g@2B4 
G2B7 
O2BA 
@2BC 
Q2BE 
@2C1 
G2C 3 
Q2C5 
g2C7 
G2C8 
G2CA 
G2CC 
G2CE 
G2D9 


80 


12 


12 


LZ 


80 


13 


13 


il 


12 


12 


12 
Ld 


8d 
AO 


88 


86 
12 
12 
TZ 
ay 
is 
13 
ii 
ii 
12 
12 


12 
il 


8B 


86 


88 


47 


92D1 FF 9i @¢ AG 46 


G2D4 A® 46 28 D6 il 
@2D6 20 D6 li 26 E8 il 
@2D9 20 E8 ll A@ FF 
@2DC A@ FF 608 

G@2DE 62 FF 99 @@ 
@2DF FF 90 @6 C9 3¢ 
G@2E2 C9 38 38 89 
Q@2E4 38 89 Co 3A 
G2E6 C9 3A 30 88 
G@2E8 38 88 FF 89 08 
@2EA FF 89 @98 A@ FF 
@2ED A® FF 60 

O2EF 60 FF 88 88 
G2FO0 FF 88 @¢ 29 OF 
O2F 3. 29--OF AD 

@2F5 40 


@2F6 77 X 

LAB $99: $8208 LAB $98: $020B LAB $97: $9236 LAB $96: $2268 
LAB $95: S@26F LAB $94: $027F LAB $93: $@2A2 LAB $92: $@2A9 
LAB $91: $@2B9 LAB $94: $82C4 LAB $89: $@2CC LAB $88: S$®@2CF 
PM EDITOR 
9206 AY BB Pp 

A282 85 F8 

9204 85 F9 

0206 85 FA 

$268 20 E8 ll 

$20B 26 AE i2 

A2BE C9 2E 

@210 D@ 24 

$212 AQ OB 

6214 85 FB 

@216 AS FB 

@218 85 DE 

A21A A5 FO 

@21C 85 DF 

@21E AS PA 

9220 85 EDO P 

@222 AY @D 

@224 20 34 13 

227 20 F3 1l 

@22A 20 F3 ll 

@22D 20 F3 li 

0236 20 6F G2 

0233 4C @8 62 

0236 C9 5@ 

6238 D® 2E 

@23A 20 7F 02 

023D F8 

623E 18 

623F AS DE 

8241 65 F8 
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8243 
6245 
@247 
@249 
$24B 
G@24D 
Q24F 
8251 
6253 
@255 
6257 
0258 
O25A 
825D 
Q25F 
8262 
8265 
8268 
§26B 
26D 
Q26F 
8271 
@274 
8276 
8279 
@27B 
G27E 
O27F 
8281 
$284 
§286 
G289 
G28C 
B28F 
6291 
0294 
6296 
8299 
@29B 
B29E 
G2Al 
@2A2 
G2A5 
G2A7 
G2A9 
82AB 
G2AD 
Q2AF 
G82BA 
G2B2 
82B4 
@2B6 


13 
L2 
G2 


G2 
G2 


12 


2 


12 


i 3 
13 
Li 
ii 
2 


12 


L2 
Li 


92 


G2B8 
G2B9 
82BB 
A@2BE 
G2C1 
G2C 3 
G2C4 
G82C6 
G2C8 
G2CA 
B2CC 
82CE 
O2CF 
@2Di 
82D2 


68 


20 
28 
A@ 
60 
C9 
38 
C9 
39 
A@ 
69 
29 
66 
a 


46 
D6 
E8 
FF 


36 
3A 
G3 
FF 


OF 


li 
ii 
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Figure 7, The main routine DECHEX converts any decimal number less than 65536 
into its hexadecimal equivalent. It is very similar to the HEXDEC routine (figure 2). 
Subroutines DECNUM and ASCDEC are shown in figures 6a and 6b. Subroutine 
AMOUNT is shown in figure 3a. The subroutines CORPR and SUBTRA, however, 
will have to be modified slightly as shown in figure 8. 
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Table 6. Using the PM Editor to enter the DECH EX program and its subroutines (see 


also figures 3a, 6a, 6b, 8a and 8b and example 4). 


JUNTOR 


250 
ao 


243 


R 


BEGAD, ENDAD: 
PM EDITOR 


206 
82095 
W203 
A236 
H209 
B20C 
N28E 
G2.0 
“W2i2 
82.4 
W2L4 
2.8 
B2iB 
424d 
G2.F 
G22 
J223 
226 
A228 
A220 
A226 
F22E 
M234 
0233 
f§235 
7238 
12 3B 
G23E 
M243 
(243 
A245 
W247 
3249 
A24C 
G24F 
8252 
7255 
8258 
Y25A 
A25D 
W250 
02452 
A263 


et 
FF 
263 
FF 
20 
C9 
DH 
AQ 
85 
AX 
85 
20 
AO 
RS 
AO 
&5 
Zt 
AQ 
85 
AX 
a5 
20 
AQ 
a5 
20 
AC 
FF 
23 
De 
A5 
29 
85 
AC 
FF 
20 
4c 
FF 
AV 
FE 
20 
99 
C8 
AC 


a) 
E8 
AE 
3A 
me 
95 
03 
40 
(Fo 
i4 
56 
ay 
"2 
Wi 
a4 
19 
Ae 
ay 
ae: 
4 
4 
3 
a4 
20 
12 
93 
BS 
FA 
37 
FA 


1 oY 
- 


25 
58 
af) 
i4 
AG 


t 
a 


i 8 
16 


zo 


ay 
a 
or 


AD 
af 


WU 


vy) 


Gg 


443 
WP 
OO 
Gy 


BY 

vi 
ae 
Be 
Ao 


a 
AH 


OY 


206, 3FF 


IFF 1.6 8 


20 
FF 
20 
C9 
Dd 
AQ 
85 
AS 
25 
29 
AQ 
85 
AQ 
85 
29 
AQ 
85 
AQ 
85 
26 
AQ 
85 
20 
4c 
FF 
20 
Dé 
AS 
29 
85 
AC 
FF 
20 
AC 
FF 
AQ 
FF 
20 
9% 
C& 
AC 
FF 


E8 
ba 
AE 
3A 
42 
95 
We 
40 
Ou 
i4 
54 
AG 
92 
i4 
46 
ag 
AG 


a 
ey 
2 


a) 


aA 
AG 
AM 
OA 


A¢ 
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Figure 8. With respect to figures 3b and 3c, subroutines CORPR and SUBTRA are 
slightly modified for use in the DECHEX program. 


buffer POINTL contains the number of hundred thousands contained in 
the decimal figure. The low order nibble stores the number of ten thou- 
sands. By masking the contents of POINTL with the value 07 after a key 
has been depressed, the computer makes sure that the decimal figure 
contains no hundred thousands and that the number of ten thousands does 
not exceed 7. 

The AMOUNT subroutine, which is used four times during the DECHEX 
program, can be used in its original form here (see figure 3a). However, 
the subroutine CORPR and SUBTRA called by AMOUNT do have to be 
slightly modified for their task in DECHEX. This is why they look dif- 
ferent in figures 8a and 8b. What is the reason for such changes? Well, a 
decimal addition (CORPR) and a decimal subtraction (SUBTRA) have to 
take place. Furthermore, the contents of POINTL also have to be modi- 
fied, depending on the status of the carry flag (ADC #60 in CORPR: 
SCD # 69 in SUBTRA). 

How the DECHEX program is edited and assembled is illustrated in 
table 6. The various routines were entered in the following sequence: 
DECHEX: labels 10...13 (figure 7) 

AMOUNT: labels 14...16 (figure 3a) 

CORPR: label 17 (figure 8a) 

SUBTRA: label 18 (figure 8b) 

DECNUM:  labels93...91 = (figure 6a) 

ASCDEC: labels90...88 (figure 6b) | 

The rest of the procedure should be familiar to everyone by now: assemble 
(X), return to PME (ST) by printing out the labels, printing the assembled 
program (P) and start the program after the return to PM. Finally, execute 
the program for as long as you like. When the operator has had enough, 
the RST key can be depressed and a return can be effected by starting PM. 


5. The warm CEND start entry into PME and the cassette 


In chapter 11 of Book 3 we mentioned the fact that TM could be used to 
store a program on cassette before it has been assembled and tested. 
Especially where extensive programs are concerned, it is no trouble to re- 
enter the unassembled program — if the program needs to be modified 
here and there — and then to restore it to its original state (before it was 
stored on cassette) by means of a warm CEND start entry into PME. Next, 
the actual debugging can take place and the same procedure can be re- 
peated ad infinitum, or rather, for as long as is necessary. 

Here is an example to illustrate the coming procedures. It is the ASCII 
program first described in chapter 12 of Book 3 — see figure 9. This pro- 
gram is so short that it does not really need editing and assembling. Never- 
theless, we wish to illustrate the principles involved with the aid of this 
program as it saves reams and reams of listings etc. What is more, it gives 
readers a clear insight into what is involved in a certain PME feature. Never 
mind if the example is rather like using a sledge-hammer to crack a nut! 
The complete program is listed in table 7. Each step will be dealt with in 
turn: 

@ The system program PM is started. 
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Figure 9. The ASCII program described in chapter 12 of Book 3 is used here to 
illustrate how the warm CEND start entry into PME operates. The start address 
(BEGAD) is now 0206. The text explains (see example 5) why this address is assigned 
the label 19. 


@ Now a cold start entry into PME is made. The start address of the 
ASCII program is $ 0200. 

® The instructions are entered, starting by ‘inserting’ label 10 — see fig- 
ure 9. 

® All the instructions are now entered and the complete program is listed 
by depressing L. 

© The not yet assembled program has to be stored on cassette tape. For 
this to happen, a return has to be made to the PM program (report 

‘JUNIOR’), the cassette machine is prepared for recording and then keys 

iS g's 8 2 8, Oy, « ee Vand ‘E’ are depressed in that order. 

After starting the machine, the CR key is depressed. The complete pro- 

gram is then stored and the computer reports with the text ‘READY’. The 

cassette machine is stopped. The program number in this particular in- 

stance is 88. The contents of SA are the same as those of BEGAD and the 

contents of EA are the same as those of CEND, one address higher than 

the one containing the EOF character, // (see listing for point 4). 

© PME is then entered by means of a warm start entry. 

@ The program is assembled (press keys X and ST). There is only one 
label in this case. 

The assembled program is printed out (P). 

© A return is made to PM so that the program can be started and tested. 
After entering the start address and following the start, the ASCII code 

of key A needs to be known. This is not a problem, which means that the 


program must be working correctly ... or !s it? When we come to find out 
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Table 7. Elaborating the ASCII program while making use of a warm CEND start 
entry into PME (see also figure 9 and example 5). 


CG) JUNIOR 

ORELL 
1506 20 R 
BEGAD,ENDAD: 290,2FF 
PM EDITOR 

@Q) 6208 77 IFF 18 00 
0200 FF i @@ 20 EB il 
9203 20 E8 ll 20 AE 12 
0206 20 AE 12 AB 
6209 A8 20 F3 il 
@20A 20 F3 ll 98 
20D 98 26 8F 12 
G20E 20 8F 12 20 F3 il 
6211 20 F3 ll 98 
g214 98 85 Fl 
0215 85 Fi 20 28 2 
9217 28 28 12 4c 11 @@ 

(4) B21A 4C il @O L 


3200 FF 18 00 
9263 20 £8 11 
A206 26 AE 12 
A209 A8 
Q@20A 20 F3 ll 
020D 98 
O2GE 26 8F i 
G211 26 F3 11 
9214 98 
6215 85 Fl 
9217 20 28 i2 
Q@21A 4C 11 6@ 
@21D 77 
DONE 
O21E E8 

(S) JUNIOR 


S88,200,21E 
READY 
(6) 1533 
1533 AQ R 
PM EDITOR 
O21E E8 x 
LAB $14: $0280 
PM EDITOR 
(8) 6200 20 E8 11 P 
4203 20 AE 12 
0266 A8 
9207 20 F3 il 
626A 98 
G620B 20 8F 12 
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the ASCII code for key 6, the 6 is not printed and the corresponding 

ASCII code does not appear at all. So, what is going on here? What about 

keys B and C? No, they do not produce the correct results either, there is 

definitely something wrong here! 

Well that is rather funny, for the program worked fine in chapter 12. After 

a good look through the program once more, the problem is quite easy to 

find. The single ASCII label was entered as 4C 11 @@ instead of 4C 10 00. 

The label 11 was not entered and so after assembly and after running the 

program once, the computer jumped to address location 0011. The ASCII 

program then ‘crashed’. 

How do we amend the fault? Well, first the program is re-loaded from 

cassette, is modified and re-assembled etc. 

@ After operating the RST key, PM is started. The ASCII program is re- 
entered from cassette in its unassembled form. 

@ The PM Editor is then activated by means ot a warm CEND start entry. 
Locations BEGAD and ENDAD remain unchanged (ENDAD can be 

modified if the programmer wishes to add a few instructions). Once CEND 

has been changed back to its original value, that is before the program was 

stored on cassette, the editing process can be continued. 

@) The instruction that is to be modified is located by using the SEARCH 
function and then the K key is depressed to delete that instruction 

from memory. The correct instruction (4C 10 0@) is then entered by 

means of the INSERT function. 

@ The program is re-assembled. 

@ The assembled program is listed. 

@ The computer returns to PM and the ASCII program is restarted. This 
time it works correctly! 


A few general remarks 


@ During a cold, lukewarm and warm CEND start entry, keep an eye on 
the following. During the initial phase, that is before the carriage return 
key is depressed, the BREAK jump vector will still be defined as for PM. 
lf the BREAK key is operated while the text ‘BEGAD, ENDAD’, is being 
printed, the text ‘JUNIOR’ will appear as soon as the BREAK key is 
released and the processor returns to PM. If an error is made during the 
entry of BEGAD and ENDAD, the computer simply asks ‘WHAT?’ and 
then new data for these two pointers can be entered. The reasons for this 
are explained in full detail in chapters 14 and 15. As mentioned previously, 
there will be no error message if ENDAD is specified to be greater than 
BEGAD. 
@ Something about entering address operands which have to be assembled. 
In chapter 5 of Book 2, it was mentioned that the opcode (20 for a 
jump to subroutine; 4C for a jump) must be followed by a label number 
(to which the computer is to jump) and by a second operand byte, the 
limiter byte. The latter has been selected as @@ throughout the Junior 
Computer Book series, however this need not be strictly adhered to as can 
be gathered from chapter 9 in Book 2. 


60 


@ Never choose a label number which is the same as the low order byte of 
an absolute address (this does not need to be assembled). This should 

be checked before the program is edited. 

@ Do not note down an absolute displayed value where jump instructions 
are concerned, as this:may well be a label number too — prior to as- 

sembly. 

@ Use each label number once only. Although it is not at all compulsory, 

it is advisable to arrange the label numbers in an ascending or descending 

order (leaving out any prohibited numbers) and in the order in which they 

are stored in memory during the editing process. 


Most of this has, of course been mentioned earlier in chapter 5 of Book Z, 
but the application of the various points discussed as far as PME is con- 
cerned does take rather a lot of practice. The only aspect which is identical 
in both editor systems is the method of using hexadecimal labels. We hope 
that you will be able to benefit to the full from implementing PME and 
that it will help you to develop useful and versatile programs. 
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14 
1.2 k bytes of PM software 


The ‘Junior on TV’ program 


Chapter 12 of Book 3 introduced the Printer Monitor system 
program. Now that we are familiar with its operation, it is time 
to describe the software involved in detail. Readers may wonder 
why this should be necessary, considering that the program can 
be used adequately without this knowledge. There are two 
arguments in favour of analysing the PM software: 
1. It will help the programmer to develop his/her own software. 
2. Various PM subroutines (or parts of subroutines) can be 
incorporated into user programs — see the examples used in 
chapters 12 (Book 3) and 13 (Book 4). 
This does not mean, however, that we are going to dwell on 
each and every byte, for as can be gathered there are a total of 
1268 bytes in all! In any case, after reading three (and a bit) 
books on the Junior Computer, most readers should be 
completely up-to-date with the 6502 machine language. 


Any system program consists of a main routine as well as a number 
1 of subroutines. The main PM routine ts based on a well-known prin- 
ciple: the computer waits for a key to be depressed and then checks to see 
which key was operated. Next, the corresponding key function is executed 
and the machine returns to a central ‘cross-roads’ in the program and waits 
for another key to be depressed, thereby completing a circuit, so to speak. 
An initialisation routine is only run occasionally, usually at the start of a 
particular program, for instance. The Printer Monitor initialisation routine 
is shown in figures 1a and 1b. It is very similar to the RESET routine of 
the original monitor program and is run during the first and second starts 
of PM (see chapter 12 of Book 3). The section of program after the label 
LABJUN in figure 1b is also run after the BREAK key is depressed and 
when the text ‘JUNIOR’ is to be output as an error message or otherwise. 
The STEP routine (figure 1b) is run whenever an instruction has been 
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Figure 1a. The first section of the PM initialisation routine. This starts at label 
INITPR and ends at label STRTBT. 


executed while the computer is in the STEP mode. Generally speaking, 
this follows a non-maskable interrupt as well. 


The Initialisation routine INITPR. 


As can be seen from figure 1a, this routine starts by dealing with a number 
of elementary matters. The computer is switched to the binary mode and 
interrupt requests (IRQ) are disabled (SEI). The input/output (1/0) 
parameters for the system are also established. By loading the data direc- 
tion registers PADD and PBDD with the value $7F all the port lines except 
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for PA7 and PB7 are programmed as outputs. In other words, port line 
PB7 will be set to receive data from the cassette recorder, PA7 is prepared 
to receive serial data from the keyboard and port line PB@ is ready to 
transmit serial data. Since the value @@ has been stored in the port A data 
register (PAD) the outputs PA@... PAG will go low. This would cause all 
the segments of the six displays to light (see chapter 7 in Book 2), but this 
is prevented by the fact that the value $67 has been stored in port B data 
register (PBD). This means that port lines PB1 and PB2 are both logic one 
and that port lines PB3 and PB4 are both logic zero. In turn, this means 
that the unused output (3) of the decoder, IC7, on the Junior Computer 
main board will be enabled (see figure 9 on page 119 in Book 2). By 
making port lines PB5 and PB6 go high also, the two indication and relay 
control circuits involved in the operation of the cassette will be disabled 
(switched off — see the interface board circuit diagram in Book 3). In 
addition, by making the output PB® go high the logic level of the RS 232 
line will be low (inverted) whenever the Junior Computer is not transmit- 
ting any characters. 

Quite a few more preparations are also needed. The computer and user 
stack pointers are loaded with the value @1FF. The memory location 
STPBIT is loaded with the value @2 so that every ASCII character trans- 
mitted by the computer ends with two stop bits. Further to this, the 
BREAK jump vector is loaded with the start address of LABJUN (figure 
1b; ‘JUNIOR’ message) and the NMI vector is loaded with the start address 
of the STEP routine (also figure 1b). All that is left to be done in figure 1a 
is to load memory locations CNTL and CNTH with the values FE and FF 
respectively. The reasons for this are about to be described. 


Let us turn to figure 1b. The initialisation routine in figure 1a has 

been run through completely from the first start of PM. The question 
now is when to go ahead with the second start? As readers will remember 
from chapter 12 (Book 3), the second start requires the RUBOUT (= RES) 
key to be depressed. As a result, the corresponding ASCII code, 7F, is 
transmitted — together with the start bit. What happens next is illustrated 
in figure 2. The section of program after the label STRTBT examines the 
serial input line (PA7) with the aid of a BIT instruction. This instruction 
performs an AND operation between a memory location and the accu- 
mulator, but does not store the result of the AND operation in the accu- 
mulator. The BIT instruction sets the N flag to the value of bit 7 of the 
memory location being tested, the V flag to the value of bit 6 and the 
Z flag is set if the result of the AND operation is zero. The BIT instruction 
permits the examination of an individual bit without disturbing the value 
in the accumulator. 
In this particular instance the N flag is set to the value of bit 7 of the port 
A data register — PA7. The following BMI instruction then checks to see 
whether this value ts logic one or logic zero. As soon as a Start bit is 
detected (N=) the processor jumps to subroutine COMTIM. This 
subroutine is shown in figure 3. During the COMTIM subroutine the 
computer waits for the start bit to pass, in other words, for port line PA7 > 
to revert to a logic one level. This is because the seria! data bits which are 
to follow are also logic one, since the computer is to check whether the 
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Figure 1b. The continuation of the initialisation routine shown in figure 1a and the 
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Figure 2. The pulse diagram of a serially transmitted ASCII character. By waiting half 
a bit period, the logic level of a data bit will always be detected in the middle of the 
bit period concerned. 
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Figure 3. The COMTIM subroutine indirectly determines the length of time the start 
bit of a received ASCII character (7F) lasts. This establishes the bit period, T. 


ASCII code 7F has arrived. This is also iliustrated in figure 2. 

While the start bit is passing, the 16 bit number contained in memory 
locations CNTH and CNTL is periodically incremented. This addition 
takes a certain finite time. The initial combined value of these locations is 
FFFE and is increased relative to the bit period T. The bit period is 
determined by the clock transmission speed, which is the Baud rate. The 
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Baud rate is produced by the clock generator and the UART situated 
inside the peripheral device being used. The purpose of these locations 
(CNTH and CNTL) is to allow the Junior Computer to transmit ASCII 
characters at roughly the same speed as they are received from the periph- 
eral device. 

The Baud rate switch has been removed from the Elekterminal, see chapter 
12 in Book 3, as there is a fixed rate of 1200 Baud. This corresponds to a 
value of @@ in location CNTH and a value of 1B in location CNTL. This 
can be verified by examining address locations 1AFA (CNTL) and 1AFB 
(CNTH) after starting PM. These two locations enable the Junior Com- 
puter to adapt itself to a wide range of Baud rates produced by the periph- 
eral equipment connected to it. Everything will be just fine as long as the 
contents of CNTH do not exceed FF, in other words, as long as the Baud 
rate is sufficiently fast. At the end of the COMTIM subroutine the final 
value contained in locations CNTH and CNTL are copied into locations 
TIMH and TIML respectively. 


3 Immediately after the COMTIM subroutine the contents of locations 
TIMH and TIML are altered. All the bits pertaining to the final count 
are shifted one place to the right. This is accomplished by shifting (LSR) 
all the bits in TIMH to the right and rotating (ROR) all the bits in TIML to 
the right. As a result, the figure then stored in locations CNTHH and 
CNTHL is approximately half the value contained in locations CNTH and 
CNTL. This is not quite correct where odd numbers are concerned. Lo- 
cations CNTH and CNTL contain a figure corresponding to the bit period, 
T and the contents of CNTHH and CNTHL correspond to the half bit 
period, %#T. The reason for this is explained in the next point. 
(N.B. to be continued in point 6). 


Before we continue with the rest of the initialisation routine for the 

PM program — the rest of figure 1b — let us have a smal! BREAK and 
look at the subroutines DELHBT and DELBIT in figure 4. Assuming that 
the bit period situation is as stipulated in point 3, subroutines DELHBT 
and DELBIT ensure that the computer waits for either half a bit period 
(%T) or a full bit period (T). These delays are spent as follows: 
Memory locations TIMH and TIML are loaded with either the contents of 
locations CNTHH and CNTHL or with the contents of CNTH and CNTL, 
depending on whether the computer is to delay half a bit period 
(DELHBT) or one full bit period (DELBIT) respectively. The section of 
program after label CNTDN (countdown) simply subtracts one from the 
value contained in locations TIMH and TIML until such time as this value 
becomes negative (FFFE). When this is the case the computer no longer 
branches back to the label CNTDN, but returns to the main routine from 
the delay subroutine. 
The contents of locations TIMH and TIML are now the same as the initial 
contents of locationsCNTH and CNTL (= FFFE) (see point 2). This means 
that if we make sure that the program section between label CNTDN and 
the BCS (branch on carry) instruction takes the same amount of time to 
execute as the program section between label COMTIM and the BPL 
(branch on result positive) instruction (figure 3), the computer will auto- 
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4 1363 1312 


DELHBT 1/2 T 


LDA CNTHL LDA CNTL 

STA TIML STA TIML 
(TIMH,TIML) (TIMH,TIML) 

LDA CNTHH = LDA  CNTH. = (CNTH,CNTL) 
{(CNTH,CNTHL) 


STA TIMH STA TIMH 


JMP  CNTDN 


CNTDN 










LDA TIML 


SBCIM $@l 
decrement 
by 7 
LDA TIMH 
SBCIM $688 
STA TIMH 
\ 4nuS 


S 


(TIMH,TIML) = FFFE c=g 


last jump: 
(TIMH,TIML)} = 600 


81913 4 


Figure 4, Subroutines DELHBT and DELBIT ensure that the computer waits for half 
a bit period or a full bit period respectively. | 


matically wait for a half bit period (label DELHBT) or a full bit period 
(label DELBIT). 

The aforementioned section of the COMTIM subroutine takes 29 ys to 
execute once. Excluding the two NOP (no operation) instructions between 
the CNTDN label and the BCS instruction, this section of program takes 
25 us to execute once. If the two NOP instructions are included in the 
subroutine, the execution time is increased to 29 lus, which is why these 
seemingly superfluous instructions have been added to the program. 

The final value of 001B contained in locations CNTH and CNTL men- 
tioned earlier (point 2) means that the contents of these locations have 
been incremented a total of 29 times after the initial value of FFFE. This 
took 29 x 29 = 841 ys. Calling subroutine COMTIM takes another 6 Ms and 
the leading edge of a start bit is unlikely to be detected at exactly the same 
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instant each time (the wait loop is interrupted by the BIT - PAD instruc- 
tion after the label STRTBT (figure 1b). Thus, the fixed bit period will be 
around 850 ys. On the other hand, we have an incoming Baud rate of 
1200, or 1200 bits per second. This corresponds to a bit period of 833 us, 
which is very close to the mark. Fortunately, the PM program is not 
affected by a difference of a few microseconds. 


5 Now for another BREAK, this time to discuss the subroutine 
RECCHA shown in figure 5. This subroutine detects the transmission 
of an ASCII character to the Junior Computer and stores the relative bit 
pattern in the correct order in the accumulator. Such a character will corre- 
spond to a certain software key operated on the ASCII keyboard. Since the 
computer features a hardware echo (see chapter 12 in Book 3), the charac- 
ter will also be displayed on the video screen or printed on paper at the 
same time. 
The RECCHA subroutine starts with a wait loop consisting of the instruc- 
tions BIT - PAD and BMI (branch on result minus). The computer will stay 
in this loop until such time as a start bit (PA7 = 9) is detected. The sub- 
routine continues by storing the contents of the X index register in lo- 
cation TEMPB. In the lower right-hand corner of figure 5, just before the 
RTS (return from subroutine) instruction, we can see that the process is 
reversed so that the X index register assumes its original contents. Thus, 
the contents of the X register are not lost during the RECCHA subroutine. 
During the subroutine the X index register is used as a bit counter. It is 
loaded with an initial value of @8, the number of bits in an ASCII charac- 
ter. After this, the computer waits for a half bit period before reaching 
label RECA where it waits for a further full bit period. Consequently, the 
computer will have reached the time when the first bit, b@, of the ASCII 
character is received — see figure 2. The machine then checks via the 
instructions BIT - PAD and BPL to see whether the bit in question is logic 
one or logic zero and then acts accordingly. The value of the carry flag is 
made the same as the bit value, after which it is shifted from left to right 
in location CHA by way of the instruction ROR (rotate right). The con- 
tents of the X index register are then decremented and if this value is not 
equal to zero the computer branches back to label RECA. As the contents 
of location CHA are shifted one position to the right before the X register 
is decremented, this location assumes the following status: 
When the contents of X= @8: b®@ x ¥% xX X X 
When the contents of X=@7: b1 b® x x x xX 
When the contents of X= 06: b2 bi b® x x x 
When the contents of X= 5: b3 b2 b1 bx x 
When the contents of X = 04: b4 b3 b2 bi bO x 
When the contents of X= @3: b5 b4 b3 b2 b1 bP x 
When the contents of X= 92: b6 b5 b4 b3 b2 bl b@ x 
When the contents of X= 1: b7 b6 b5 b4 b3 b2 b1 bO 
All the bits are now correctly positioned in location CHA. Now for the 
finishing touch. After the label RECC the computer waits for a full bit 
period — the duration of the first stop bit. The contents of location CHA 
are then copied into the accumulator and masked by the value 7F. This 
clears the parity bit sent by the UART. As you will have gathered from 
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5 L2AE 
RECCHA 
start bit 
yes 


no started? 


PA7 =@ 


STX  TEMPB save X 
JSR 


DELHBT wait 4T 


Cm) 


JSR DELBIT 





se > 
figura 1b 


BIT PAD 


serial 

data bit 

t or 6? 

PA? =1 
ROR CHA ROR CHA 

all 8 at 8 
ASCII bits ASCII bits 
dealt with? dealt with? 


yes 


RECC 


JSR DELBIT wait T 


LDA CHA A*CHA 
ANDIM $7F b7 <6 
LDX  TEMPB fectane 
RTS 
91913 


Figure 5. Subroutine RECCHA detects any ASCII character transmitted to the Junior 
Computer, in other words, any keys depressed on the ASCII keyboard. 
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chapter 12 in Book 3, we are not interested in this particular bit. 

The label RECD in figure 5 may seem a little superfluous, but the com- 
outer jumps to this label during the initialisation routine (see figure 1b and 
point 6). When this occurs, the start bit has already been detected and the 
contents of the X index register are 08. 


6 (continued from point 3) Now it is time to examine the remainder of 
the second half of the PM initialisation routine (figure 1b). After the 
start bit has passed and the various bit period locations have been filled 
with the correct data, the value 08 is stored in the X index register, the 
computer waits for a half bit period and then jumps to the section in the 
subroutine RECCHA which reads in all the data concerned with the 
ASCII character after the start bit (see figure 5 and point 5). Once that has 
all been taken care of, the computer checks to see whether the ASCII 
character received has the code 7F. !n other words, if the key RUBOUT 
(= RES) was depressed to indicate that it is time for the second start of 
PM. If so, the computer continues from the label LABJUN. If not, it 
returns to the start of the initialisation procedure (INITPR - figure 1a). 
Bringing the procedure to a close after the label LABJUN involves printing 
the message ‘JUNIOR’ and making sure that any following data is printed 
at the start of a new line. The two subroutines, JUNIOR and CRLF, will 
be discussed in detail later on (see points 11 and 12). 
Considering the fact that the program also jumps to the label LABJUN 
when the BREAK key is depressed, the stack is quite likely to ‘overflow’, 
with disastrous consequences. For this reason the stack pointer and 
location SPUSER have to be kept under control (loaded with the value 
$F). This then completes the discussion of the PM initialisation routine 
and brings us to label RESALL, which is the central point in the main 
routine of the PM program. 


A second initialisation routine belonging to the PM program is the 

STEP routine shown in figure 1b. This is executed once the machine 
returns to PM after a single instruction has been processed in the STEP 
mode. Generally speaking, this will also be the case after a non-maskable 
interrupt. During the (INITPR) initialisation routine, the start address of 
the STEP routine is loaded into the memory location reserved for the NMI 
jump vector (see figure 1a). 
The STEP routine is identical to the SAVE routine contained in the 
original monitor program. The contents of all the various registers are 
saved in the well-known memory locations (see chapter 3 in Book 1 and 
chapter 7 in Book 2). The routine ends by calling subroutine PRBUFS, 
which we will consider at length in point 10. For the moment it is suf- 
ficient to know that the contents of the program counter (= PCH, PCL) 
are printed at the start of a new line followed by a space and then the 
contents of the address location concerned. This will be found to be the 
current work address together with the data contained therein. When a 
program is executed in the STEP mode, that particular memory location 
will contain the opcode belonging to the next instruction to be executed. 
(This instruction is carried out by depressing the R key). 
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The STEP ‘entry’ into PM can also be used to jump to PM after the BRK 
instruction or after a hardware IRQ. In that case, the IRQ jump vector will 
have to be defined by the operator. 

That just about covers the initialisation routines performed by the PM 
program. Several PM subroutines have also been dealt with ‘en passant’. 
Before we go on to consider the main routine, the time has arrived to 
examine a few more PM subroutines. These all have something to do with 
the printing process. 
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Whereas the subroutine RECCHA is the main ASCII receiving 

routine, the subroutine PRCHA is the main ASCII character trans- 
mission routine. The flowchart for the PRCHA subroutine is shown in 
figures 6a and 6b. This subroutine prints the ASCII character correspond- 
ing to the code contained in the accumulator. 
To start with, the contents of the X index register are copied into location 
TEMPA. Again, just before the RTS instruction in figure 6b, the previous 
value of the X register is restored. Therefore, once again, the contents 
of the X register remain unaltered during this subroutine. As with the 
RECCHA subroutine, location CHA plays an important part in the pro- 
cedure; the contents of the accumulator are copied into this location. 
Next, port line PB® is made logic zero by ANDing the contents of PBD 
with $ FE. Then the computer waits for one full bit period — the start bit 
has now been transmitted. After this, the contents of the X index register, 
which acts as a bit counter, are made equal to 07. 


6b 


LDX STPBIT 






ORAIM $@l 
STA PBD PB@ = 1 
JSR DELBITER wait T 
| DEX —_Jroxt stop bit 
2 stop bits 
transmitted? 
BRKTST 
yos 
BIT FAD BIT PAD 
PA? =@ 
BRK -key re 
> yes no released? 
“ PA7=1 yes | PAT =1 


LDX TEMPA restore X IMI BRKT 


C=) _ 


Figure 6. The PRCHA subroutine is devoted to the actual transmission of an ASCII 
character by the Junior Computer to the video terminal (or printer). The complete 
flowchart is shown in figures 6a and 6b. 
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Following this, the value of the carry flag is made to be the same as the 
value of the transmitted bit (after label PRA in figure 6a). This is ac- 
complished by the instructions LSR -CHA and BCC (branch on carry 
clear). Port line PB@ is assigned the value of the carry bit; all other port 
lines, PB1...PB7 remain unaltered. 

The procedure is as follows: 


Start of eee 0 b6 b5 b4 b3 b2 bt bO: C=x 

when X = 07 ® @G b6 bd b4 b3 b2 b1: C=bO 
when X = 06 0 9 @ b6 bS b4 b3 b2: CKH=bi 
when X = 05 0 @ 0 @ b6 bd b4 b3: C=b2 
when X = @4 2 09 @ O@ 0 b6 b5 b4: C=b3 
when X = 03 9 0 OO O09 OM bB6 bd: C=b4 
when X = 02 9 0 @ 0 0 @ @ b6: C=b5 
when X = 1 9606 0 09 @ DO OM: C=b6 


As you Can see, bit 7 is zero before the start of the data transmission and is 
therefore not sent by the computer. This is quite correct, for there is no 
parity bit involved in the PM program and only seven bits are used for the 
ASCII code. 

This brings us to figure Gb, the transmission of two stop bits. The value @2 
is held in the memory location STPBIT (see figure 1a) and is now trans- 
ferred to the X index register. Next, the computer waits for two consecu- 
tive bit periods while port line PB@ is made logic zero. 

The actual transmission of the ASCII character is now complete and the 
remainder of the routine in figure 6b affects the BREAK key. As readers 
know from chapter 12 (Book 3), the character output process performed 
by the Junior Computer can be halted by depressing the BREAK key. After 
the ASCII character being dealt with at that moment has been transmitted, 
the computer checks to see whether or not the BREAK key was operated. 
If not, the computer will return to the main routine after restoring the 
contents of the X index register. If the BREAK key was operated, however, 
the computer waits for it to be released and then performs an indirect 
jump (shown in figure 6b as the unofficial JMI instruction). The effective 
jump address is defined in locations $1A7C (BRKT) and $1A7D 
(BRKT + 1). This effective jump address is that of the label LABJUN (see 
figure 1a). After depressing (and releasing) the BREAK key, the computer 
reports ‘JUNIOR’. 


The PRBYT subroutine — prints out eight bit data held in the 

accumulator. This is shown in figure 7a. The data is transmitted in 
the form of two ASCII characters; one for the high order nibble and one 
for the low order nibble. This means that each nibble has to be translated 
into its corresponding ASCII code before transmission. (For instance, if 
the data 20 were not converted into the ASCII codes 32 and 39, the com- 
puter would simply acknowledge it as the ASCII code for a space.) For 
this reason, the subroutine NIBASC shown in figure 7b must be executed. 
The ASCII codes for numbers @...9 (hexadecimal and decimal numeric 
keys) are $3@...$39. The ASCII codes for the characters A... F (hexa- 
decimal numeric keys) are $41... $46 (see Appendix 7 in Book 3). ei 
us suppose that the accumulator contains the value @X, where X =@. 
prior to the start of NIBASC. Either the value $3@ will have to be ee 
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fa 128F 7b 12A4 


* NIBASC 


CMPIM S@A 


Q...9 


ADCIM $36 


A=XXXXYYYY 








A = GOOOXXXX 


"KXKX” 


A= XXXXYYYY 


PRNIBL 





ANDIM SOF A= WOOYYYY 
JSR NIBASG 
JSR PRCHA "¥YYY" 


81913 7b 





81913 7a 


Figure 7. Subroutine PRBYT (figure 7a) prints a data byte in the form of two data 
nibbles. Each data nibble must first be converted into its corresponding ASCII code. 
This is accomplished by the subroutine NIBASC in figure 7b. 


to the contents of the accumulator to produce the ASCII codes for the 
numbers @...9, or the value $37 will have to be added to produce the 
ASCII codes for the lettersA ...F. This is exactly what happens during 
the NIBASC subroutine. The instructions CMP (compare) immediate and 
BMI (branch if minus) determine whether the contents of the accumulator 
are equal to or greater than $@A. If the value in the accumulator is be- 
tween 9@...09, the NIBASC routine adds $3@ to it. If the value is 
between 9A... 0F, $07 is added followed by $39, making the required 
total of $37. 

Back to the PRBYT subroutine in figure 7a. This starts by storing the 
contents of the accumulator in the stack (PHA). Then the contents of the 
accumulator are shifted to the right four times in succession. As a result, 
the previous low order nibble is replaced by the high order nibble and the 
new high order nibble becomes zero. 

Now the program calls subroutine NIBASC (figure 7b); the original high 
order nibble is translated into its correct ASCII code. This is then dis- 
played on the video screen or printer via the subroutine PRCHA (see 
point 8 and figures6a and 6b}. After this, the original contents of the 
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accumulator are restored (PLA) and the program moves on to label 
PRNIBL to display the ASCI! equivalent of the original low order nibble. 
This section of the routine can be used on its own to print a single nibble. 
By masking the high order nibble, the contents of the accumulator are 
prepared for processing by the subroutines NIBASC and PRCHA. After 
the low order nibble has been printed the computer returns to the main 
routine. 


10 The subroutine PRBUFS (see figure 8) is devoted to printing the 

current ‘work address’. This address information is held in the 
buffers POINTH (high order address byte) and POINTL (low order address 
byte). Not only is the actual work address printed, but also the contents of 
that address location. The PRBUFS subroutine can be explained in very 
few words. The computer always starts to print at the beginning of a fresh 
line (subroutine CRLF, see point 12). Then the high order address byte 
(ADH) of the current work location is printed by means of the subroutine 


L1F8 


JSR CRLF 


JSR 
R 






















“ADH” (work address) 












“ADL” ( work address) 


re Li’: 
LDYIM $68 
LDAIY POINTL A < work data 


PRBYT 
Js PRSP 


"XX" ( work data ) 


Pid LJ’ 


81913 8 


Figure 8. Subroutine PRBUFS is used to print the current work address and its 
corresponding work data. 


PRBYT which we are already familiar with. The same procedure occurs for 
the low order address byte (ADL). Then a space is ‘printed’ via the subrou- 
tine PRSP (see point 12). The contents of the memory location defined by 
the buffers POINTH and POINTL are then loaded into the accumulator by 
means of post indexed indirect addressing (where the contents of the 
Y index register are 00). Finally, the two data nibbles are displayed via the 
PRBYT subroutine and another space is printed. 
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LDA MESS,Y 
CMPIM $63 


JSR 


81913 9a 


1246 124F 1254 


JUNIOR EDITOR (asim) 


LDYIM $@@ LDYIM $@7 LDYIM $@E 


JUN 


JSR CRLF fF ..... 81913 9b 
a” 


RTS 


Figure 9. Subroutine MESSY (figure 9a) prints a computer message; in some 
instances this constitutes an error report. Subroutines JUNIOR, EDITOR and 
ASSEM in figure 9b use subroutine MESSY to report the texts ‘JUNIOR’, ‘EDITOR’ 
and ‘ASSEMBLER, respectively. (The last two reports do not apply during the 

PM routine.) 
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1 The subroutine MESSY, shown in figure Qa, allows a ‘string’ of text 
to be displayed, in other words, a message such as ‘JUNIOR’ or 
WHAT?’ etc. The text concerned is stored in ASCII! coded form ina 
number of consecutive memory locations in the look-up table MESS, 
starting from address $13BD and ending at $141D (see the listing at the 
back of this book). One memory location is reserved for each ASCII 
character. The value contained in the Y index register determines how 
many locations from the start of the table (13BD) that the particular text 
string begins. A text string ends with the ‘end-of-text’ (EOT) character 
$93. Effectively, what happens is that initially the contents of the Y index 
register correspond to the start address of a particular message and are 
then incremented until the EOT character is detected. 
The subroutine MESSY (figure 9a) starts by calling the subroutine CRLF 
(see point 12). This positions the cursor (or printer carriage) to the start of 
a new line. Then the instruction LDA MESS, Y loads the ASCI! value of 
the first/next character in the message into the accumulator. The initial 
value of the Y index register must be established before the jump to 
MESSY. The computer then checks to see whether the EOT character (93) 
has been reached, for this would end the subroutine (RTS). If not, it 
continues to print the rest of the string. In some instances the rest of 
MESSY after the label ME is used as a subroutine. This means that the 
printing does not start at the beginning of a new line. 
Here is an example of how MESSY is used: subroutines JUNIOR, EDITOR 
and ASSEM in figure 9b. Further on in the chapter a lot more examples 
are given. First, a particular value is loaded into the Y index register, then 
subroutine MESSY is called and the relevant text (JUNIOR’, ‘EDITOR’ or 
‘ASSEMBLER’) is printed followed by a carriage return and line feed 
















LDAIM $@D 


JSR  PRCHA 
LDAIM $6A 


LDAIM $26 


10 


Figure 10. Subroutines CRLF (start afresh from the beginning of a new line) and 
PRSP (print a space). 
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(CRLF) to ensure that any further data etc. is printed on a new line. 
N.B. Subroutines EDITOR and ASSEM are not used in PM. 


12 Subroutines CRLF and PRSP (see figure 10) are used frequently to 

provide clarity and legibility. The subroutines are extremely 
straightforward. It is simply a question of loading the ASCII code of the 
required command into the accumulator and ‘printing’ it with the aid of 
the PRCHA subroutine. The carriage return (CR) command (= back to the 
start of the same line) has the ASCII code @D and the line feed (LF) 
command (= move to the same position on a new line) has the ASCII code 
QA. The space routine (PRSP) is also straightforward: load the ASCII value 
20 into the accumulator and jump to label CLEND, leaving a space. 


13 The subroutine HEXNUM (figure 11) plays an important role in 
determining whether an ASCII character received by the Junior 
Computer belongs to a hexadecimal key or not. If indeed a hexadecimal 
key was depressed, the data is added, after translation from the ASCII 
code, to the contents of the data buffers INH and INL. {f not, the com- 
puter asks ‘WHAT?’ (short for ‘what is going on?’). 

Before dealing with the subroutine HEXNUM in detail, let us consider this 
subroutine ASHETT (figure 12), which establishes whether hexadecimal 
data is involved and if so distills the data out of the received ASCII code. 
Looking at figure 12, let us assume that the particular ASCII code is stored 
in the accumulator, codes 30...39 (keys@...9) and codes 41...46 
(keysA...F) are valid; all other codes (and keys) will be considered 
non-valid. The ASHETT subroutine contains four consecutive compare 
instructions, each followed by a branch instruction. These determine 
whether the incoming ASCII code is valid or not. The non-valid ones are 
filtered out, so to speak. Once a non-valid character is detected, the N flag 
is set and the Z flag is cleared before the computer returns to the 
HEXNUM subroutine. 

The ASCII code of a valid character has to be translated into the corre- 
sponding data nibble before it can be used by the Junior Computer. This is 
accomplished after the label VALIT in the ASHETT subroutine. The 
ASCII characters 30...39 can be translated to 00...@9 simply by 
masking the high order nibble of the accumulator contents (AND # OF). 
Where the ASCII characters 41...46 are concerned, however, the value 
9 has to be added to the accumulator contents first, before the masking 
process. At the end of the ASHETT subroutine, the high order nibbie of 
the accumulator contents will always be zero and (nine times out of ten!) 
the low order nibble will not be equal to zero. This means that both the 
N flag and the Z flag will be reset after the return. 

Now to continue with the HEXNUM subroutine (figure 11). This starts by 
calling the ASHETT subroutine (figure 12) which we have just discussed. 
This is followed by a BMI instruction to test the status of the N flag. A 
non-valid ASCI! character leads the computer to the label HNUB, which is 
where the text ‘WHAT?’ is dealt with. Firstly, the value 46 is loaded into 
the Y index register. Then subroutine MESSY is called (see point 11 and 
figure 9a). After the error message ‘WHAT?’ has been printed, the cursor is 
positioned at the beginning of a new line via the CRLF subroutine. Before 
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HEXNUM 


JSR ASHETT 


OU 


non valid 
HNUB 
N=4 
N=@ valid 
LDYIM $46 
LDXIM $@4 
JSR MESSY “WHAT?” 
JSR CRLF ee 
x 
LDYIM SFF 
N=1,s0Z=86 
ASLZ INL RTS 
ROLZ INH 
ORAZ INL 
Z=1,s0N=6 
81913 17 


RTS 


Figure 11. Subroutine HEXNUM processes the data nibbie corresponding to a hexa- 
decimal key. This data nibble is stored in the data buffers INH and INL. 


returning to the main routine, the value FF is loaded into the Y index 
register. This means that the N flag will be set and the Z flag will be reset. 
if a valid hexadecimal ASCII character was received, the corresponding 
data nibble is ‘set aside’ in the data buffers INH and INL. This is done by 
shifting and rotating the bits in these buffers to the left four times. The 
way in which this is accomplished is identical to similar operations in the 
original monitor program (see Book 2). For this reason we only require a 
brief summary here: 

@ The low order nibble contained in buffer INL is the same as the data 

nibble just received. 


@ The high order nibble in buffer INL is the same as the previous low 
order INL nibbie. 


80 


12 


VALIT 


CMPIM $48 


<> —= 
LF 
CLC 
ADCIM 89 
Com) 


ANDIM S@F 3X > 6X 


N=¢@,Z-6 


LDYIM $FF 
N=1,s02=9 RTS 
RTS 
81913 12 


Figure 12. Subroutine ASHETT is called during the HEXNUM subroutine (figure 11) 
to check the validity of a supposedly hexadecimal key. If a non-valid key is 
depressed, the error message ‘WHAT?’ is displayed. 





no, 47 


NOTVAT 


@® The low order nibble in buffer INH is the same as the previous high 
order INL nibble. 

@ The high order nibble in buffer INH is the same as the previous low 
order INH nibble. 

@ The previous high order INH nibble has disappeared. 


In other words, the contents of buffers INH and INL always correspond to 
the data belonging to the last four hexadecimal keys to be depressed, 
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unless the buffers were cleared in the meantime (subroutine RESIN, see 
point 14). If subroutine HEXNUM is called less than four times in suc- 
cession, the unused nibbles will be zero. 

Just before the end of the HEXNUM subroutine, the Y index register is 
loaded with the value 0@. As a result, the Z flag will be set and the N flag 
reset, which is exactly the opposite of what happens when a non-valid 
ASCII code is received. 


14 The main PM routine and the remaining PM subroutines will now 
be dealt with. The complete flowchart is shown in figures 
13a... 13c. The central point of the main routine is constituted by the 
subroutine RESALL (top left-hand corner of figure 13a). Following this 
label the computer calls subroutines RESPAR and RESIN (figures 14a and 
14b respectively). The subroutine RESPAR has the task of clearing the 
two address buffersPARA and PARB (both 16 bits), while the RESIN 
subroutine performs the same function for the data buffers INH and INL. 
This occurs as soon as the contents of the buffers have become superfluous 
after a particular key operation has been performed. The next label, 
READCH, constitutes another important part of the main PM routine, 
during data processing in particular (for instance, the entry of a work 
address or work data). Straight after the READCH label the PM routine 
jumps to subroutine RECCHA: the computer waits for a (new) key to be 
depressed. Then, the routine tests the various possibilities: 

Is it the ‘+’ key? If so carry out the ‘+’ key routine. If not, is it the ‘“—’ 
key? If so, carry out the ‘~’ key routine. If not, check to see whether it 
was the space key, etc. etc. 


15 The PLUS key routine; the sequence of instructions in figure 13a 

following on from the PLU label. As mentioned in chapter 12, the 
work address has to be incremented and the new work address together 
with the data contained therein has to be printed on a new line. To start 
with, the subroutine INCPNT is called (see figure 15a). The current work 
address is indicated by the address pointer POINTH and POINTL. In- 
crementing this pointer by one (INCPNT, figure 15a) is carried out in the 
usual manner. After this, the new work address and the corresponding data 
is printed (subroutine PRBUFS, see point 10 and figure 8) and the 
program returns to the label RESALL. 


16 The MINUS key routine; the sequence of instructions following the 

MINUS label in figure 13a. Here, the current work address has to 
be decremented by one; the new work address and the inherent data has to 
be printed. This is very similar to the PLUS key routine described in point 
15. The only difference being that the subroutine DECPNT is called rather 
than the subroutine INCPNT. In this instance the contents of POINTH and 
POINTL are decremented by one, otherwise everything else is the same as 
before. 


17 The SPACE key routine; the sequence of instructions following the 


SPACE label in figure 13a. A work address is entered and displayed. 
The address data is entered by previously depressing up to four hexadeci- 
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JSR SHOWPR 
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(figure 17a) 
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13c 






) (<4 RESALL) 
(<4 READCH) 
© CONTIN SAVID 


JMP GETTAP 


CMPIM 53 


= 
SAID JMP 
JMP RESALL MP RESALL 





GETTAP 


CMPIM 47 


IMP LABJUN | -yuaior” 


{figure 1b} 81913 3c 


Figure 13. The main PM routine which processes the various key functions can be 
split up into three sections. These are shown in figures 13a, 13b and 13c. Since the M 
key routine contains so many instructions, it is shown separately in figures 17a and 
17b. 
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14a 1259 14b 1268 


RESPAR 


LDYIM $@@ 


LDYIM $88 


STYZ INL 
STYZ INH 


STY PARAL 


STY PARAH 


STY PARBL 


STY PARBH 





811913 14b 


841913 14a 





Figure 14. Subroutine RESPAR (figure 14a) makes sure that the address buffers 
PARA and PARB are cleared for the entry of the first and last address, respectively. 
Subroutine RESIN (figure 14b) clears the data buffers INH and INL. 


15a 1213 15b 121A 


INC PNT 


INCZ POINTL 





SEC 





LDAZ POINTL 
SBCIM $#@1 
STAZ POINTL 


LDAZ POINTH 


SBCIM $86 


INCZ POINTH 


STAZ POINTH 





$1913 15b 


81913 15a 


Figure 15. Subroutines INCPNT (figure 15a) and DECPNT (figure 15b) serve to 
increment or decrement the contents of the address pointer POINT, respectively. 
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mal keys and is stored in the buffers INH and INL. The contents of INH 
and INL are then copied into POINTH and POINTL. The work address is 
now established and can be printed. For this subroutine PRBUFS is 
called (see figure 8 and point 10). Following that the program returns to 
RESALL. 


18 The FULL STOP key routine; the sequence of instructions in 
figure 13a following the PNT label. Data is loaded into a previously 
specified work address. One of the keys ‘+’, ‘—’ or ‘space’ is implemented. 
The contents of the data buffer INL are first copied into the accumulator, 
buffer INH is not required here as only one data byte is concerned. If 
more than two data keys are depressed, the two most recent ones will 
comprise the work data. 
Once the work data is stored in the accumulator, it is transferred to the 
location reserved for the work address by means of the instruction STA - 
POINTL, Y. Afterwards, the work address is incremented by one (sub- 
routine INCPNT) and displayed together with the data contained therein 
(subroutine PRBUFS). This makes preparation for the following work 
data entry. 


19 The R key routine; all the instructions following the RUN label in 

figure 13a. This routine is identical to the one belonging to the GO 
key in the original monitor program (see figure 5a on page 108 of Book 2). 
During the STEP routine (see figure 1b) the contents of all the registers 
were stored away. During the RUN routine the original register contents 
are restored. The RTI (return from interrupt) instruction which ends the 
RUN routine ensures that a program is carried out from the start address 
specified by the contents of locations PCH and PCL, or, if the program is 
being executed in the STEP mode, that the following instruction is carried 
out. The opcode of this instruction is stored at the address specified by 
PCH and PCL (PC = program counter). 


2 Before discussing the L key routine, let us consider a special 
subroutine, SHOWPR (see figure 16), which is used during a 
program listing to make sure that the contents of the status (P) register are 
printed bit by bit. 
The SHOWPR subroutine starts by copying the contents of the status 
register (PREG) into location PRTEMP. In addition, the X index register, 
which acts as the bit counter, is loaded with an initial value of 98. The 
position of the various flags in the status register can be seen from figure 
1b on page 61 of Book 1. 
After the label SPRA in the SHOWPR subroutine the contents of location 
PRTEMP are shifted to the left eight times in succession by means of the 
instruction ASL - PRTEMP. This means that initially bit 7 is shifted into 
the carry flag. Depending on whether the carry bit is now logic one or 
logic zero, either a 1 or @ will be printed by the subroutine PRNIBL (see 
point 9 and figure 7a). After this the next (and subsequent) bit is prepared. 
The process is repeated until the contents of the X index register are zero. 
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16 1228 


LDAZ PREG A< PREG 
STA PRTEMP A> PRTEMP 


LDXIM $988 8 bits 


ASL PRTEMP § 67> C 


C=b7=6 
SPRB 


oO 
r 
~l 
oh 







LDAIM $61 LDAIM $890 


ure 


JSR PRNIBL -—"X" (=b7) > JSR PRNIBL 


< nextbit > 


ai bits _, no 
dealt with? 


YI 


yes 


RTS 


RTS 


81913 16 


Figure 16. Subroutine SHOWPR is called during a certain phase of the L key routine 
and prints the contents of the status register bit by bit (the state of the various flags). 


This ts what happens: 

when X= @8: the value of the N flag is printed; 
when X= 97: the value of the V flag is printed; 
when X= @6: arandom value is printed; 

when X= @5:_ the value of the B flag is printed; 
when X = 04: the value of the D flag is printed; 
when X = 03: the value of the | flag is printed; 
when X= @2: the value of the Z flag is printed; 
when X = 01: the value of the C flag is printed. 


1 The L key routine; the section of program following the LIST 

label in figure 13b. The task of this subroutine is to print the 
memory contents in an orderly manner. The LIST routine is made up ofa 
whole series of instructions and many jumps to other subroutines. This 
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subroutine can be dealt with rapidly by looking at a practical example 
(see chapter 12 in Book 3). The text that is printed during a certain phase 
is shown in inverted commas. The inverted commas themselves, however, 
are not printed! How a space is symbolised is also shown in figure 13b. All 
the subroutines that are called by the LIST routine have been discussed 
earlier: MESSY in point 11, PRBYT in point 9, SHOWPR in point 20 and 
PRSP in point 12. 


a2 The P key routine; the sequence of instructions following the 
label PC in figure 13b. Depressing the P key causes the contents 
of the program counter (PCH and PCL) to be copied into the current work 
address. The function of the P key is identical to that of the PC key of the 
original monitor program. This key routine can again be explained in very 
few words. 
The contents of location PCH and PCL are copied into locations POINTH 
and POINTL. This gives a new work address, which is printed via the 
subroutine PRBUEFS. 


2 The M key routine: the large number of instructions following 
the label MATRIX in figure 13b. In fact, there are so many that 
they require extra space: figures 17a and 17b; Figures 13b and 17a are 
joined via ‘junction’ @. 
At the top left-hand corner of figure 17a, the routine starts by printing the 
message ‘HEXDUMP:’. This is accomplished by loading the Y index 
register with the value $52 and calling the MESSY subroutine. This brings 
us to the subroutine INPAR which we will describe now (the subject of 
the M key routine is continued in point 25). 


2 The INPAR subroutine (see figure 18) is either partially or 

completely run during the routines associated with the M, G and 
S keys. These keys are used to enter certain parameters, as you will re- 
member from chapter 12. The INPAR subroutine controls the parameter 


setting: 
enter first sane enter last address CR ke 
address data Y data or ID ¥ 


The INPAR subroutine starts by waiting for a key to be depressed via the 
subroutine RECCHA. The question now is: is it the comma key? If not, 
either valid (hexadecimal) data or non-valid data (all other keys except ‘,’) 
must have been entered. The HEXNUM subroutine (see point 13 and 
figure 11) processes valid hexadecimal data in the buffers INH and INL. 

As soon as the comma key is depressed (label IPA in figure 18) the first 
data entry will be complete. This information is then transferred to the 
address buffers PARAH and PARAL for the first address. In the case of 
a hex dump this memory location will contain the first data to be printed 
(see point 25) or it will be the first address of a data block which is to be 
stored on cassette (subroutine SAID - see point 28). Next, the data buffers 
INH and INL are cleared (subroutine RESIN). 

This brings us to the Jabel IPB in figure 18. Again, the computer waits for 
a key to be depressed and then checks to see whether it was the carriage 
return key. If so, it means that all the data has been entered. If not, it 
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17a (i) {figure t3b) 


LDYIM $52 “HEXDUMP : Li” 
JSR MESSY 
JSR INPAR 


: SEC 
LDA PARBL 








SBC PARAL 
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JMP LABJUN 


or 
LDXIM $86 


C=) ~— 
JSR PRSP 
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..F) 





CPYIM $108 


Le 


LDA PARAL 


STAZ POINTL 
LDA PARAH 
STAZ POINTH 


j (figute 17b) 81913 17a 


Figure 17. Apart from the first two instructions (see figure 13b) all the instructions 
pertaining to the M key routine are shown in figures 17a and 17b. 
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a) (figure 17a) 
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must have been more data and the procedure just described above is 
repeated. If on the other hand, it was the CR key, the second data entry 
will have been completed and the program will have reached the label IPC. 
This is where the last data to be entered is stored in locations PARBH and 
PARBL. In this instance the buffers INH and INL are not cleared, unlike 
when the comma key was detected. Finally, the contents of the Y index 
register are cleared, which sets the Z flag and resets the N flag. 
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EDAZ INL 








LDAZ INH 


JSR RESIN 











(IPGRES 
valid figure 19} 
data at 
(GETIO 
figure 19a) 









81913 18 


Figure 18. Subroutine INPAR is of vital importance to the M, G and S key functions, 
in other words, those requiring certain parameters to be input. 
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2 The M key routine continued — back to figure 17a. After the end 
of the INPAR subroutine (point 24) the state of the N flag 
determines what happens next. If non-valid data was entered during the 
INPAR subroutine, the program moves on to label MATD and from there 
to the LABJUN label (figure 1b) where the computer reports ‘JUNIOR’. 
Following this, the central label in the PM main routine, RESALL, is 
reached. We can now try again by depressing the M key. If, however, 
correct data was entered, the program jumps to label MATF. The next 
sequence of instructions checks to see whether anything has gone wrong. 
The 16 bit number contained in locations PARBH and PARBL is sub- 
tracted from the 16 bit number contained in location PARAH and PARAL. 
If the result is negative, the carry flag will be reset and the program will 
jump to label LABJUN via label MATD to report ‘JUNIOR’. The reason 
for this is that the last address (PARB) should never be lower than the first 
address (PARA). This is true of both a hex dump listing and of a data 
transmission to cassette (key S; see point 28). 
If the addresses are all right (carry flag = 1) the listing of the hex dump can 
be started. The instructions between labels MATG and MATH in figure 
17a make sure that six spaces are ‘printed’ one after the other from the 
start of a new line. This is for the sake of clarity. After the spaces have 
been output, the numbers @...F are printed above the hex dump 
columns. Each figure is separated from the next by two further spaces. At 
the end of figure 17a the contents of the work address buffers POINTH 
and POINTL are made the same as those of the first address — the contents 
of locations PARAH and PARAL. That completes the first half of the 
M key routine. 


™%6 Now to continue with the second half, which brings us to figure 
17b. After the label MATJ, the data to be dumped is printed 
from the start of a new line (CRLF). Initially, the start address (the 
contents of POINTH and POINTL) is printed at the beginning of a new 
line. Once the address has been printed, a colon and a space are produced 
via the subroutine ME. This is similar to the MESSY subroutine, except for 
the initial carriage return and line feed (see figure 9a and point 11). In 
addition, the X index register (initial value = 10) is used to keep a track of 
the amount of data to be printed in a particular row. 
The instructions after label MATK check whether all the data in the hex 
dump has been printed. This can be deduced from the vaiue in the address 
pointer (POINT) when compared to the contents of the last address buffer 
PARB. The state of the carry flag determines which path the computer is 
to take. If the POINT address has not yet exceeded the contents of buffer 
PARB, the relevant data is fetched from the current POINT location and 
printed (label MATL). Then a space is produced (subroutine PRSP), the 
value in POINT is incremented (subroutine INCPNT; see point 15 and 
figure 15a) and the contents of the X index register are decremented to 
prepare for the next print operation. The state of the Z flag (the instruc- 
tions BNE and BEQ) determines whether the next lot of data is to be 
printed on the same line or ona fresh line. If the contents of the X register 
are not yet zero then the following data has to be printed on the same line. 
if the contents of the X index register are zero then the computer jumps 
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back to label MATJ to print out the next address and then the next line of 
the hex dump. 

Once all the data in the hex dump has been printed (the contents of PARB 
are less than those of POINT), the computer jumps to the CRLF subrou- 
tine and then to label LABJUN, to output the text ‘JUNIOR’. Since 
subroutine CRLF is called just before the jump to label LABJUN and the 
text ‘JUNIOR’ is also printed at the start of a new line (see subroutine 
MESSY and JUNIOR) a gap of one line is left between the last line of the 
hex dump and the ‘JUNIOR’ message. 

N.B. If the amount of data to be printed is a factor of sixteen, in other 
words, if the hex dump is made up only of complete lines, the last address 
to be printed will belong to a ‘fictional’ row of data. This is because the 
computer does not ‘know’ that it has reached the end of the hex dump 
until after label MATK. This means that although the address will be 
printed, the data contained therein will not be printed. 


2 As far as the G key routine is concerned, we can leave figure 13b 
and turn to the third section of the main PM routine. This section 
is shown in figure 13c. The G key routine consists of all the instructions 
following the label GETTAP. Most of the work in this routine is ac- 
complished by the subroutine GETID which is shown in figure 19a. 
Following the label GETID (figure 19a) the program jumps to subroutine 
IPB. This is not a new subroutine, but the closing stages of subroutine 
INPAR which was dealt with in point 24 and figure 18. When a program is 
being entered from cassette, data must be input (the program number, ID) 
the G key must be depressed followed by the CR key. (The situation 
where ID = FF will be considered later.) At the end of the IPB (= INPAR) 
subroutine the state of the N flag will dictate whether the whole procedure 
went smoothly and correctly, or not. If something went wrong the N flag 
will be set and the BMI! instruction after the IPB subroutine has ended 
causes the computer to branch to label GA and from there return to the 
main section of GETTAP. 
If an acceptable 1D was entered, the contents of the accumulator are 
stored in location ID (see chapter 16). Prior to the end of the IPB subrou- 
tine, the accumulator is loaded with the contents of the low order data 
buffer INL. By the way; subroutine IPB is not exited from (unless some- 
thing went wrong) until the CR key has been operated. The detour by way 
of the subroutine IPBRES is required to-clear the contents of buffers INH 
and INL. Alternatively, the computer could have jumped to the instruc- 
tion JSR - RESIN immediately before the IPB label in figure 18. 
If everything went fine after the second jump to the IPB subroutine, the 
contents of locations INH and INL are copied into locations SAH and SAL 
respectively (see chapter 16). The program then proceeds to label GB so 
that the actual read from cassette operation can take place. Subroutine 
RDTAPE will be discussed in detail in chapter 16. During the RDTAPE 
subroutine the input/output parameters are re-defined. This is why the 
subroutine RESTTY (figure 19b) is called immediately afterwards. Here, 
the 1/O status is restored to that shown in figure 1a. The computer then 
reports with the text ‘READY’ and the Z flag is set and the N flag is reset 
before the end of the subroutine GETID. 
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Back to the G key routine in figure 13c. If the N flag was set during the 
GETID subroutine, the program continues to label LABJUN via the label 
GETERR to report ‘JUNIOR’. If, on the other hand, the N flag is reset, 
the entire process will have been a success and the computer returns to the 
focal point RESALL in the main PM routine. 


2 The S key routine consists of all the instructions following the 
label SAVID in figure 13c. Again, the lion’s share of the work is 
carried out by the subroutine SAID, which is shown tn figure 20. We shall 
describe this subroutine first. When the S key is depressed, the following 
parameters have to be met: 
S key - first data - comma - second data - comma - third data - CR key 
where: 
the first data represents an ID (00... FF) 
the second data represents the start address, SA 
the third data represents the end address, EA (= LA + 1; see chapter 11 in 
Book 3). 
The SAID subroutine starts by checking to see whether a comma key was 
Operated. If not, the first data is not yet completely entered. This involves 
the subroutine HEXNUM: valid hexadecimal data sets the N flag thereby 
making the program jump to label SIB. As soon as the comma key is 
depressed, the program jumps to label SIC. Here, the contents of buffer 
INL are stored in location 1D and the computer checks to see whether the 
programmer has inadvertently entered the value @@ or FF for the ID. In 
this case the program will make a quick error exit via the label SIA, where 
the N flag is set and the Z flag is reset. 
The second and third data entries and the final CR entry are processed by 
calling the subroutine I[NPAR which is shown in figure 18 and described in 
point 20. Before this, however, the data buffers INH and INL are cleared 
via the subroutine RESIN. 
As soon as the CR key is depressed, the computer can start with the actual 
storage of the data being received from the cassette. The start address 
buffers SAH and SAL are loaded with the contents of buffers PARAH and 
PARAL for the first address. Similarly, the end address buffers EAH and 
EAL. are loaded with the contents of locations PARBH and PARBL for the 
last address. The computer then jumps to the cassette subroutine DUMP 
which will be discussed in detail in chapter 16. As with the RDTAPE 
subroutine (point 27) the input/output parameters are altered during the 
DUMP subroutine. Therefore, the subroutine RESTTY is called after the 
end of subroutine DUMP. 
After the end of the program entry the computer reports “READY’ and 
the contents of the Y index register are cleared, thereby setting the Z flag 
and resetting the N flag. 
Back to the S key routine in figure 13c. After the SAID subroutine has 
been executed, the state of the N flag indicates whether all the data arrived 
safely or not. If so, the computer returns to the main cross-roads in PM 
(label RESALL); if not, the computer reports the error ‘JUNIOR’ via 
labels GETERR and LABJUN. 
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Figure 19. Subroutine GETID makes up most of the G key routine (figure 19a). 
Subroutine RESTTY (figure 19b) restores the input/output parameters to their 
original condition after one of the cassette subroutines RD TAPE or DUMP have been 
executed. Subroutine IPBRES (figure 19c) clears the contents of the data buffers 
INH and INL during part of the INPAR subroutine. 
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a9 Finally, the data key routine. This involves all the instructions 
which follow the label VALNUM in figure 13c. The main routine 

will now have reached the stage where any keys that mean something to 

PM have been filtered out. These are: 

(point 15) 

(point 16) 

(point 17) 

(point 18) 

(point 19) 

(point 21) 

(point 22) 

(points 23, 25 and 26) 

(point 27) 

(point 28) 

Any keys not mentioned above will not have been filtered out. These are 

either non-hexadecimal keys — usually pressed by mistake — or hexa- 

decimal keys. In the case of the latter, this concerns information per- 

taining to the entry of a work address or work data. Key information 

which is part of the routines relating to the key functions M, G and S Is 

not dealt with by the main PM program loop. 

The subroutine HEXNUM (figure 11) processes the hexadecimal data. This 

was discussed in point 13. Any non-valid keys produce the error message 

‘WHAT?’. In this case the program jumps back to the central label 

RESALL. When a valid key is depressed, the associated data nibble is 

processed inside the buffers INH and INL. Next, the program jumps to 

label READCH (see figure 13a). In this instance the data buffers INH and 

INL are not cleared as the data entry may well not be complete. 

That covers all the software concerning the PM routine, but a word should 

be added about the BREAK key routine. 


OOfs UTD: 2. + 
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Figure 20. Subroutine SAID performs the lion’s share of the S key routine. Among 


other things, it contains a jump to the cassette routine DUMP to allow a program to 
be stored on cassette. 
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30 As already mentioned (see chapter 12 in Book 3 and point 8) 
depressing the BREAK key will only be effective during a print- 
ing session involving the subroutine PRCHA. In practice, however, it will 
be seen that this key can lead to a ‘JUNIOR’ report, even while the com- 
puter is waiting for a key to be depressed (subroutine RECCHA). Thus, 
the behaviour of the computer will be identical to that during the 
LABJUN routine in figure 1b (see points 1 and 6). 
How this is possible can be explained as follows: 
If the BREAK key is depressed for at least nine bit periods in a row, the 
ASCII code @@ is transmitted. Since this code is incomprehensible to the 
Junior Computer, it reports ‘WHAT?’. At least that is what it is supposed 
to do in theory. In fact, as soon as the error message starts to be printed, 
the computer will find out that the BREAK key is still depressed and so 
willreport ‘JUNIOR’... but not before the BREAK key has been released! 
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15 
The PME software 


766 bytes of text editor 


The new PM Editor was introduced in chapter 13. Now that we 
know how to ‘drive’ the new software, it may be interesting to 
take a good look ‘under the bonnet’ to find out how the ‘engine’ 
works — byte by byte. The program is based partly on existing 
subroutines and partly on totally new subroutines which, as 
always, can be incorporated into user programs. | 

Although the PME program contains relatively few bytes com- 
pared to the rest of the software in this book, each routine will 
be dealt with and fully explained in turn. 


1 Let us start by looking at PME in general. As an aid to this, a block 
diagram has been drawn and is illustrated in figure 1. 
PME is structured as follows: 
The main routine is preceded by an initialisation routine which is only 
run now and again. As can be seen from the flowchart, PME originates 
from three sources, much in the same way as a river is formed by the 
convergence of a number of brooks and streams. The three sources are: the 
cold, warm CEND and lukewarm start entry routines. A fourth ‘tributary’, 
the ASSEND routine, should really be considered as an intermediate 
routine which is instigated by the depression of the ‘ST’ key on the main 
keyboard. 
Normally, any use of PME will lead to its main routine, which is every- 
thing after the WARM label in figure 1. The procedure carried out by this 
main routine should be very familiar by now. Once a depressed key has 
been detected, the program carries out an interrogation procedure to find 
out which key was depressed: was it the ‘A’ key? If so, carry out the ‘A’ 
key routine. If not, was it the ‘B’ key? If so, execute the ‘B’ key routine. If 
not, was it the ‘C’ key? etc. After executing the corresponding key routine, 
the program returns to the central label WARM of the main PME routine, 
where the computer waits for a new key to be depressed and then the 
subsequent key operation is carried out, and so on. 
Sometimes the computer will return to the WARM label via a ‘half-way’ 
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Figure 1. The block diagram of the PME system program. 


stage, after a ‘DONE’, ‘ILLEGAL KEY’ or ‘FULL’ report. In the case of 
the ‘X’ key routine, however, the computer will not return to the WARM 
label, but will jump to the assembler. The WARM label is reached by 
means of a detour (label ST, label ASSEND, label EDITW). The latter part 
of the ‘1’ key routine (from label MEM) constitutes the final section of 
the INPUT routine. 

Now let us take a much closer look at the subroutines involved in the 
PME program. 


The subroutine MESSA is shown in figure 2. This is used by PME to 

print a text. The subroutine is virtually identical to MESSY, which 
was described in chapter 14. The only difference is that the first address of 
the look-up table is TXT, rather than MESS. The following texts are stored 
in the look-up table: ‘BEGAD, ENDAD:’, ‘ILLEGAL KEY’, ‘FULL’, 
‘DONE’, ‘PMEDITOR’, ‘LAB $’ and ‘:$’. The particular text to be 
printed depends on the value contained in the Y index register just before 
the jump to subroutine MESSA. 


The subroutine PRINS is shown in figure 3 and has the task of 
printing an address, the instruction contained in that address and a 
number of spaces. The number of spaces is determined by the length of 
the printed instruction — for a single byte instruction, 12 spaces are 
printed; for a double byte instruction, 9 spaces are printed and for a three 
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Figure 2. The PME subroutine MESSA is virtually identical to the PM subroutine 
MESSY, except that a different look-up table is required for the various PME reports. 


byte instruction, 6 spaces are printed. 

Firstly, which instruction is printed? After all, there are quite a few! An 
instruction is printed when its opcode is contained in the address pointed 
to by the current address pointer CURAD. !t is wise to remember that 
CURAD is always pointing to the first address of the last instruction 
to be printed in the left-hand column of the video screen (or the printer 
paper). 

The PRINS routine starts by calling the CRLF subroutine. This was dis- 
cussed in point 12 of chapter 14. This subroutine starts the printing oper- 
ation at the beginning of a new line, which is of course the beginning 
of a line in the left-hand column. Following this another subroutine is 
called: OPLEN. This routine was mentioned frequently during the dis- 
cussion of the original editor routines. It is described on page 165 in 
Book 2 (chapter 8). The opcode of an instruction is stored in the accumu- 
lator and the computer checks to see whether the instruction is one, 
two or three bytes in length. The length of the instruction is stored in 
location BYTES. Next, the X index register is loaded with the contents of 
location BYTES. Therefore, the computer knows how many bytes are to 
be printed. However, prior to the instruction itself being printed, the com- 
puter first outputs the address of the instruction opcode, namely the 
contents of CURADH and CURADL. This is accomplished with the aid of 
the subroutine PRBYT (see point 9 in chapter 12). Then the value @F is 
loaded into address location LABELS. This value determines the number 
of spaces to be printed after the instruction has been dealt with. 
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This brings us to the whole section between the labels PRT and SP in 
figure 3. This section of the PRINS routine is run one, two or three times 
depending on the initial value contained in the X index register — the 
length of the instruction. When this section of program is reached, the 
initial value contained in the Y index register is zero. The routine follow- 
ing the PRT label starts by printing a space (PRSP, see point 12 in chapter 
14). Then the contents of the address location pointed to by the CURAD 
pointer plus the value in the Y index register (@@) is printed. In other 
words, the opcode of the particular instruction. Again, the actual printing 
is accomplished by the PRBYT subroutine. The next few instructions cause 
the contents of location LABELS to be decremented by three. This effec- 
tively reduces the number of spaces to be printed later by a factor of three 
so that the total output, when the right-hand column is also printed, is 
nice and neat. The contents of the Y index register are then incremented 
by one and the value in the X index register is decremented by one. If the 
contents of the X index register are not yet zero, another byte has to be 
printed and the program loops back to the PRT label. 

The final section of PRINS, everything after the label SP, is carried out 
once the contents of the X index register are zero — all the bytes in the 
instruction have been printed. This final section is concerned with printing 
a number of spaces after the instruction. The amount of spaces printed 
will depend on the final contents of location LABELS, that is: 

15 (the original value in LABELS) minus three multiplied by the number 
of times the routine between the labels PRT and SP was run. 

Therefore, 12 spaces are printed after a single byte instruction, 9 after a 
double byte instruction and 6 after a triple byte instruction. Once all! the 
spaces have been printed, the program returns to the main routine. 


4 What happens after a cold start entry into PME? The instructions 
contained in the initialisation routine given in figure 4a are executed. 
The instructions between the labels EDITC and BRK are only executed 
during a cold start entry into the PME, whereas those following the BRK 
label are executed in certain other instances as well. We shall return to 
these later. 
Immediately following the EDITC label, the subroutine RESIN is called. 
We first encountered this subroutine in point 14 of chapter 14. It clears 
the data buffers INH and INL. Following this, the contents of the Y index 
register are made zero and subroutine MESSA is called, so that the com- 
puter reports ‘BEGAD, ENDAD:’. Strictly speaking, this is not a state- 
ment, but a request for information. The operator is asked to indicate the 
BEGAD and ENDAD addresses. As you will remember, this involves 
entering the data for the start address, then a comma, then the data for the 
end address and finally depressing the carriage return (CR) key. The com- 
puter then disposes of another already present subroutine (INPAR) to 
deal with this information. The INPAR subroutine, which was previously 
used during the M key routine in the PM program (hex dump), was con- 
sidered in detail in point 24 of chapter 14. If anything went wrong during 
the data entry, the N flag will be set and the Z flag will be reset at the end 
of INPAR. The following BMI instruction causes the program to branch 
back to the start of EDITC if wrong data was entered. This means that the 
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Figure 4a. The initialisation routines EDITC and SEMIW, including a common 
section following the BRK label. 
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whole procedure has to be repeated, so that ‘BEGAD, ENDAD:’ appears 
on the screen once again. In a number of cases the computer also reports 
‘WHAT?’ This is because the subroutine HEXNUM is called at two places 
during the INPAR routine (see figure 18 of chapter 14). If a non-hexa- 
decimal key is depressed, an error report will follow. 

As far as the HEXNUM subroutine is concerned, you are referred to figure 
11 and point 13 in chapter 14. Once the BEGAD and ENDAD addresses 
have been correctly defined, the contents of the first address buffers 
PARAH and PARAL are transferred to memory locations BEGADH and 
BEGADL, respectively. The contents of the second address buffers PARBH 
and PARBL are then transferred into locations ENDADH and ENDADL, 
respectively. At the same time, locations CENDH and CENDL are loaded 
with the contents of BEGADH and BEGADL + 1, so that the current end 
address pointer points to one location higher than the initial (BEGAD) 
address in the current memory range. This is necessary because the EOF 
character 77 is to be stored at BEGAD. As instructions and labels are 
added to the program, the EOF character and the CEND pointer will move 
up to a higher location and point to a higher address, respectively. If, on 
the other hand, instructions or labels are deleted, the EOF character and 
the CEND pointer move down the memory range. 

Before the EOF character is stored at BEGAD, the current address pointer 
must also point to the start address. This is accomplished during the sub- 
routine BEGIN, which was first introduced in chapter 8 of Book 2. After 
the PME initialisation routine in figure 4a has been run, the first instruc- 
tion in the program will be printed. The opcode of the instruction will be 
held in location BEGAD, therefore, straight after a cold start entry, this 
will be the single byte ‘instruction’ with the pseudo-opcode 77. 


A warm start entry into PME. The second part of the PME in- 

itialisation routine in figure 4a is sometimes run after a warm start 
entry into PME. A warm start entry begins at label BRK. If this method 
of starting PME is chosen, the contents of locations BEGAD and ENDAD 
will have already been established (during the initialisation routines 
SEMIW, SEACND or the intermediate routine LABLST — see later on for 
details). In any case, the BRK jump vector will have to be defined im- 
mediately after a warm start entry. For prior to the start, the computer 
was in the PM mode where the BRK vector points to the label LABJUN 
causing the text ‘JUNIOR’ to be printed (see chapter 14). 
it is not surprising, therefore, that immediately after the BRK label in 
figure 4a, the BRK jump vector is loaded with the address $153D. This 
address pertains to the label EDITW, where we have just arrived. This label 
is followed by a few instructions which cause the text ‘PM EDITOR’ to be 
printed and the stack pointer to be reset to FF. The latter is useful after 
pressing the BREAK key, as it is possible that not only does the printing 
process have to be stopped, but the stack may be ‘full’. (The so-called 
‘overflow’ state is not possible where the stack is concerned. As soon as 
the highest location (@10@) is reached, the process automatically continues 
from the next lowest location in the stack, which in this case is 91FF.) 
N.B. A warm start entry could also take place at address $153D (label 
EDITW) instead of at address $1533 (label BRK). This means that the 
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BRK jump vector will be defined according to the PM program and will 
remain so unless altered by the user. Furthermore, the BRK jump vector 
will be determined by PM during the execution of the instructions up to 
the BRK label. This includes the various initialisation routines. Therefore, 
if the BREAK key is depressed while the computer is in the process of 
printing out ‘BEGAD, ENDAD:’ or while the INPAR subroutine is being 
run, the message ‘JUNIOR’ will appear on the screen as opposed to the 
expected ‘PM EDITOR’. The latter will only be printed if the section of 
program following the BRK label has been run previously. 


The main PME routine. It is now time to discuss the main PME 

routine, which is shown in figure 4b, starting with the ‘K’ key 
routine. This involves the instructions immediately following the central 
WARM label, at the top left-hand corner of figure 4b. First an instruction 
is printed. Which instruction is determined by the contents of the current 
address pointer CURAD. The printing is accomplished with the aid of the 
PRINS subroutine which was described earlier (see figure 3). This is 
followed by the subroutine RECCHA, during which the computer waits 
for a key to be depressed. As soon as this occurs, the computer stores the 
ASCII code of the depressed key in the accumulator. The RECCHA sub- 
routine was described in point 5 and figure 5 of chapter 14. 
When the depressed key is a ‘K’, the UP routine is called. This is an original 
editor routine and causes the current instruction (the one pointed to by 
the current address pointer) is deleted from memory and that subsequent 
instructions and labels are shifted down the address range by the number 
of bytes corresponding to the length of the deleted instruction. The 
program or user file will now be one instruction shorter. After the UP 
routine, another original editor subroutine, RECEND is called. This 
decrements the contents of the current end address pointer by the value 
held in location BYTES. This is because location BYTES contains the 
length of the instruction just deleted. 
Location BYTES is also used during the UP routine. Subroutines OPLEN 
and LENACC do not have to be called, as the deleted instruction is the last 
to have been printed and the value held in BYTES corresponds to its 
length. The UP subroutine was described in figures 17 and 18 of chapter 8 
in Book 2, while RECEND can be found in figure 14 in chapter 8 of 
Book 2. | 
At the end of the ‘K’ routine, the computer jumps back to the central 
label WARM belonging to the PME main routine. Every requirement has 
now been met; the last instruction has been deleted from memory. Since 
the contents of the CURAD pointer remain unchanged, the instruction 
immediately following the one just erased is printed after the return to the 
WARM label. 


7 The ‘L’ key routine. This routine consists of all the instructions 

starting at the LIST label in figure 4b and ending with the computer 
report ‘DONE’. This key routine sees to it that all the instructions in the 
current program are printed out. The printing procedure must stop as soon 
as the current end address pointer CEND and the current address pointer 
CURAD contain the same value. 
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Figure 4b. The first section of the main PME routine consists of the key routines for 
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When the computer detects that the ‘L’ key has been depressed, the 
BEGIN subroutine is called. Firstly, the initial instruction, indicated by 
the contents of BEGAD, is printed. The remainder of the ‘L’ key routine 
is taken up by the program !oop around the label LST. This involves 
subroutines PRINS and NEXT and the BMI instruction. The NEXT 
subroutine is yet another one which is ‘borrowed’ from the original editor 
and is also described in chapter 8 of Book 2. Readers are invited to refresh 
their memories as far as this subroutine is concerned, it is described on 
page 151 and in figure 10 of chapter 8. The contents of the current 
address pointer CURAD are incremented by the value related to the last 
figure held in location BYTES, that is the length of the last instruction 
to be printed during the PRINS routine. The final section of the NEXT 
subroutine checks to see that the contents of the current address pointer 
do not exceed those of the current end address pointer, or rather, that 
the contents of CURAD are smaller than or equal to the contents of 
CEND. 

During this final section, the contents of CEND are subtracted from the 
contents of CURAD. Thus if: 

CEND>CURAD N=1andC=@ 

CEND <CURAD N=@andC=1 

The status of the N flag is valid provided the result of the subtraction is 
not less than —127, in other words, provided the most significant bit in the 
result is.one. 

Once the EOF character has been printed (this is stored at a location equal 
to one less than the address pointed to by CEND) and the NEXT sub- 
routine has been run again, the contents of CURAD are made equal to 
those of CEND (the instruction length of the pseudo-opcode 77 is one). As 
a result, the N flag will be reset and so the program loop around the LST 
label will be interrupted. 

The instruction concerning the printing of the ‘DONE’ message is next on 
the list. During the MESSA subroutine the Z flag is set (because the 
accumulator contains the EOF character), therefore the computer returns 
to the central WARM label in the main PME routine. During the sub- 
sequent PRINS routine, the opcode of the instruction stored at the lo- 
cation indicated by the CEND pointer is printed. This is unlikely to be an 
instruction entered by the operator, but more likely a ‘random’ instruction 
which was ‘entered’ when the computer was switched on. In any case, the 
last instruction to be printed is clearly not part of the current program as 
it is held in an address indicated by the CEND pointer. 


The ‘SPACE’ key routine. The ‘SPACE’ key routine consists of all 

the instructions following the SKIP label in figure 4b. Depressing 
the SPACE bar causes a print-out of the instruction stored in memory 
immediately after the last one to be printed. In other words, the routine 
is similar to the ‘L’ key routine, but one instruction is printed at a time. 
The instruction to be printed is determined by the contents of the current 
address pointer CURAD. It is not surprising that this routine involves the 
NEXT subroutine. This is followed by the two instructions BMI and BPL, 
which both react to the status of the N flag. The computer will, therefore, 
either branch back to the central label WARM, or branch to the DONE 


109 


label. The latter will only occur when the contents of CURAD exceed 
those of CEND, as in the case of the LIST routine. 


The READIN/READ subroutine. Before examining the ‘I’ key 

routine, let us take a BREAK and look at three other PME sub- 
routines. First of all, the READIN/READ subroutine is shown in figure 5. 
This has a similar function to the RDINST subroutine contained in the 
original editor program (see page 153 and figure 11 in Book 2). The 
purpose of the READIN/READ subroutine is to process any instruction 
that the operator enters into the computer memory banks. It is used during 
the INSERT, SEARCH and INPUT key routines. 
Just as the GETBYT subroutine was called once, twice or three times, 
depending on the length of the instruction, during RDINST, the BYTIN/ 
BYT subroutine is called once, twice or three times during the READIN/ 
READ subroutine. 
The BYTIN/BYT subroutine is shown in figure 6. As the name of the 
latter suggests, two hexadecimal key operations are processed into a high 
order nibble and a low order nibble, which are then joined together to 
form a data byte. This is then stored in the accumulator. The BYTIN/BYT 
routine starts by calling the RECCHA subroutine, where the computer 
waits for a key to be depressed. During the subroutine ASHETT following 
the BYT label, the ASCII code of the depressed key is converted into a 
corresponding data nibble. If it was not a hexadecimal key the N flag is 
reset and the subroutine is exited from. The ASHETT subroutine was 
described in figure 12 and point 13 of chapter 14. 
If the N flag is set after the ASHETT routine, the data nibble will be held 
in the low order position in the accumulator. Four successive shift oper- 
ations in the accumulator cause the nibble to be moved to the high order 
position. This is then temporarily stored in location NIBBLE. Then the 
computer jumps to the subroutines RECCHA and ASHETT once again to 
wait for and subsequently process the next key to be depressed. Provided 
that the second depressed key is also hexadecimal, the second data nibble 
is ORed with the first to provide the complete data byte. The computer 
will then return to the READIN/READ subroutine. 
If, for any reason, a non-hexadecimal key was depressed during BYTIN/ 
BYT the subroutine in exited from with the N flag set and the Z flag 
reset. 
N.B. The BYT subroutine is very similar to the BYTIN subroutine, except 
that the computer does not wait for the first hexadecimal key to be de- 
pressed. The BYT subroutine is called during the INPUT key routine. 
Now back to the READIN/READ subroutine in figure 5, which starts by 
calling the BYTIN/BYT subroutine. The first two data nibbles, thus the 
opcode of the entered instruction, are held in the accumulator. At least, 
this is the case if hexadecimal keys were depressed. If not, the computer 
will proceed directly to the RTS label. 
Following the label READ, the opcode of the instruction is stored in 
location POINTH. Subroutine LENACC then sets to work to find out the 
length of the instruction, and therefore how often, if at all, to keep calling 
the BYTIN/BYT subroutine (the contents of the Y index register after the 
end of LENACC). The length of the instruction is transferred to memory 
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Figure 5. The subroutine READIN/READ examines an instruction and is used during 
the ‘I’, ‘S’ and INPUT key routines. : 
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Figure 6. The BY TIN/BYT subroutine combines the data nibbles of two depressed 
keys. This subroutine is called at least once during the READIN/READ routine. 


locations TEMPX and COUNT. If the instruction turns out to be two or 
three bytes long, a space (PRSP) is printed and the computer waits for the 
entry of the first (or only) operand byte (BYTIN). This byte is then 
transferred to the data buffer POINTL. If the instruction is three bytes 
long this procedure is repeated and the second operand byte is stored in 
the data buffer INH. Last but not least, the contents of the X index 
register are made zero: As a result, the Z flag will be set and the N flag will 
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be reset. If a non-hexadecimal key was detected in any of the above pro- 
cedures, the routine is exited from with the N flag set and the Z flag reset. 
Whatever happens, the subroutine always ends with the RTS instruc- 
tion. 

N.B. Apart from waiting for the first data byte (the opcode) to be entered 
(the first call to subroutine BYTIN), the READ subroutine is identical to 
READIN. The READ subroutine is called during the INPUT key routine. 


1 The CHECK subroutine. The CHECK subroutine performs the task 
of ascertaining whether or not there is sufficient memory space 
available for a new instruction to be INPUT or INSERTED. As you will 
remember from chapter 13, four memory locations are required at the end 
of a user program. Three locations for the first label to be dealt with 
during assembly and one for the EOF character. This means that the 
lowest possible position for the CEND pointer to indicate is two locations 
below the address indicated by the ENDAD pointer. If the contents of 
CEND drop below this, due to the length of the new instruction, the 
instruction will not be accepted for storage. 
At the end of the CHECK routine, the status of the carry flag will indicate 
whether or not there is sufficient memory space available. The CHECK 
subroutine is shown in figure 7 and starts by calling the subroutine 
ADCEND, which is contained in the original editor routine. It was de- 
scribed on page 155 of Book 2 and in figure 13 of chapter 8. The current 
end address pointer CEND is incremented by an amount corresponding 
to the length of the instruction. We may assume that, just prior to the 
jump to the CHECK routine, the contents of location BYTES corresponds 
to the length of the instruction that needs to be stored. Subsequently, the 
carry flag is assigned a value according to the result of the subtraction: 
the contents of ENDAD minus $02 minus the contents of CEND. 
Depending on the result, the computer will either branch directly to the 
end of the subroutine or continue. If the carry flag is reset, a borrow oper- 
ation must have been necessary during the subtraction. This means that 
the contents of ENDAD are less than the sum of the contents of CEND 
and $02. This concludes that there is no room for the instruction. 
If, on the other hand, the subtraction leads to a zero or positive result, 
the contents of CEND wiil still be above the danger level and the instruc- 
tion can be stored. Therefore, before the return instruction, the sub- 
routine RECEND is executed. This is the opposite of ADCEND and was 
described on page 159 and in figure 13 of chapter 8 in Book 2. The 
contents of the current end address pointer CEND are temporarily re- 
stored to their previous value, since the instruction is ‘registered’ straight 
after the CHECK routine (see the discussion on the ‘I’ key routine). 
Firstly, however, sufficient room has to be reserved in the memory banks, 
which is why the CEND pointer has to be restored to its previous value for 
a moment. 
N.B. Note that if the CHECK routine is left when the carry flag is reset, 
the CEND pointer will not be adjusted by means of the RECEND routine. 
As a result, the EOF character 77 will stay where it is (no instruction is 
added as there is no room for it) and at the same time the contents of 
CEND will be incremented. As soon as there appears to be no more room 
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Figure 7. The CHECK subroutine is used to determine whether or not there is 
sufficient room in the memory area specified by the values contained in BEGAD and 
ENDAD for any extra instructions. 


for further instructions, the CEND pointer will no longer indicate an 
address which is one location higher than that where the EOF character 
is situated. This situation can be remedied and will be explained later. 


1 The ‘I’ key routine. Now that we are familiar with the subroutines 
involved, we can go on to describe the ‘I’ key routine. This consists 

of all the instructions following the INSERT label in figure 4b. As soon as 

the computer detects that the ‘I’ key has been depressed, the READIN 

subroutine is called. This subroutine is exited from in two ways: 

when N =@ and Z = 1 where: 

the opcode of the instruction being inserted is heid in the data buffer 

POINTH; 

the first, or only, operand byte of the instruction to be inserted is held in 

data buffer POINTL; 

the second operand byte, if any, is held in data buffer INH. 

when N = 1 and Z = @ where: 

a non-hexadecimal key must have been depressed during the entry of the 

instruction. 

In the latter case, the program will branch to the label ILLKEY and the 
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computer will report ‘ILLEGAL KEY’, followed by a return to the central 
label WARM. 

If the instruction is entered in the correct manner, the sequence of instruc- 
tions following the MEM label will be processed. The subroutine CHECK is 
called to see whether or not there is sufficient room for the instruction 
being inserted. If not, the computer branches to label FULL and the com- 
puter reports the corresponding message. If there is sufficient room, 
however, the FILLWS routine is called and the instruction is inserted into 
the sequence already held in memory. 

The FILLWS subroutine is a well known original editor routine and is 
described in figure 12 of chapter 8 in Book 2. It ensures that sufficient 
space is reserved for the new instruction (the DOWN subroutine). After 
the current end address pointer CEND has been adjusted, one, two or 
three memory locations are loaded with the contents of POINTH (opcode), 
POINTL (first operand) and INH (second operand), depending on the 
length of the instruction. Since the Z flag will be set at the end of the 
FILLWS routine, the computer will once again return to the central 
WARM label. The contents of the CURAD pointer remain unchanged, so 
the instruction that has just been inserted is printed. 

N.B. The section of the ‘1’ key routine following the MEM label also con- 
stitutes the second part of the INPUT key routine. 


1 The ‘S’ key routine. There are quite a number of instructions 
concerned with the SEARCH routine, as can be seen from the 
right-hand column in figure 4b. When the computer detects that the ‘S’ 
key has been depressed, the subroutine READIN is called. In other words, 
the instruction to be searched for is specified in location POINTH (opcode) 
and, depending on the length of the instruction, in locations POINTL and 
INH as well. If a non-valid key is depressed during the instruction entry, 
the processor branches to the ILLKEY label and the message ‘ILLEGAL 
KEY’ is printed. 
Provided the instruction was entered correctly, the search procedure will 
take place, starting at the label SCAN. First, the opcode of the instruction 
concerned is loaded into the accumulator and the length of the instruc- 
tion is deduced via the subroutine LENACC. The length of the instruction 
is stored in location BYTES. By the way, just before the SCAN label the 
contents of the current address pointer are made the same as those of 
BEGAD by means of the BEGIN subroutine, so that the search operation 
starts at the first instruction in the program. The opcode of that instruc- 
tion is loaded into the accumulator and is then compared with the opcode 
of the instruction being searched for, in other words, the contents of 
POINTH. If the two opcodes are different, the instruction can be ignored 
whereupon the computer will branch to the AGAIN label to examine the 
‘next instruction in the program. 
By decrementing the contents of BYTES by one and testing the result 
with the aid of a BEQ instruction, the computer can determine whether 
or not the instruction being searched for (not the one being examined!) 
is a single byte instruction. Note that this only takes place if the two 
opcodes are the same. If the searched for instruction is in fact one byte 
long, the program will branch to the label FOUND, where the instruction 
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is printed along with the address where it was found. If not, the next byte 
is fetched from memory. This does not necessarily have to be the first (or 
only) operand of the instruction being examined, because the previously 
found opcode could well have been data of a different kind. 

What does happen is that the next memory byte is compared to the first 
operand of the instruction being searched for. Again, one of two things 
may occur. If the two bytes are different the program will branch to the 
label AGAIN. If they are the same, the computer checks to see whether 
the instruction being searched for is two bytes long. If so, the program 
branches to the FOUND label, if not, the next byte is retrieved from 
memory and compared to the second operand byte of the instruction 
being searched for. !f these two bytes are also identical, the program 
branches to the FOUND label. 

The section of the ‘S’ key routine following the SCAN label could well 
have been structured differently. After ascertaining that the two opcodes 
were the same, the two instruction lengths could have been compared and 
the program would branch to AGAIN if they were different. The problem 
here is that although this method would save a certain amount of time, it 
would require quite a lot of memory space. | 

Following the label FOUND, the PRINS subroutine is called: the instruc- 
tion being searched for has now been found and is printed along with its 
corresponding address. The flowchart shows quite clearly that the search 
operation starts at the beginning of the program: see the BEGIN sub- 
routine just prior to the SCAN label. 

In chapter 13 we described how the same instruction can be searched for 
further on in memory. For this the ‘Y’ key had to be depressed. As can be 
seen, the subroutine RECCHA follows the PRINS routine. Therefore, the 
computer waits for a key to be depressed. If the ‘Y’ key is depressed at 
this stage, the computer will branch to the label AGAIN to continue the 
search. If any other key is depressed, the program will branch to the 
DONE label, where the message ‘DONE’ is printed to complete the ‘S’ 
key routine. 

Following the label AGAIN, the subroutine OPLEN is called, which 
determines the length of the last instruction to be examined. Then the 
NEXT subroutine is called to adjust the contents of the CURAD pointer 
so that it points to the opcode of the next instruction in the program 
being examined. The status of the N flag at the end of the NEXT subrou- 
tine informs the computer whether or not there is another instruction to 
follow. This matter was discussed in detail during the explanation of the 
‘L’ key routine. !f there are no more instructions in the program, the 
processor proceeds to the DNE label to print the message ‘DONE’ and 
from there it will move back to the central WARM label. As can be seen 
from figure 4b (page 108), the only exit from the ‘S’ key routine is via the 
DNE label, as illustrated in chapter 13. Therefore, every search routine has 
to end with the message ‘DONE’. 


1 3 The ‘2’ key routine. The ‘Z’ key routine consists of the relatively 

small number of instructions following the BACK label in figure 4c. 
When the computer establishes that the ‘Z’ key has been depressed, the 
contents of the address pointer TABLE are made the same as those of 
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4c (continued from p. 108) 
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Figure 4c. The second section of the main PME routine consists of the key routines 
for the ‘2’, ‘T’, ‘P’ and ‘X’ keys and also the INPUT routine (hexadecimal keys). 


BEGAD. The TABLE pointer has only been used in the assembler mode 
until now (see chapter 9 in Book 2), but its services are required here as 
an auxiliary address pointer. When the length of an instruction is being 
determined, this location points to the address directly in front of that 
belonging to the last instruction to be printed. The length of the instruc- 
tion must be Known so that it can be subtracted from the contents of the 
CURAD pointer, and so enable the previous instruction to be printed after 
the jump to the WARM label. This corresponds to the ‘decrement instruc- 
tion’ function which is executed by means of the ‘2’ key. 
As soon as the contents of TABLE and BEGAD are the same, the com- 
puter determines whether or not the contents of TABLE are also the same 
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as those of CURAD. In other words, whether the first instruction in the 
program was the last to be printed. If this is the case, then there can be no 
‘previous’ instruction and the program returns to the WARM label via the 
label BCKB. As a result, the first instruction in the program is printed 
again (since the contents of CURAD remain unaltered). 

Things are totally different when the CURAD pointer does not point to 
the first address in the program (BEGAD). The program loop following the 
BCKA label is run a number of times depending on the length of the 
instruction concerned. This effectively increments the contents of TABLE 
by an amount equal to the instruction length until the contents of TABLE 
are the same as those of CURAD. Then the CURAD pointer has to be 
decremented by the value equal to the last contents of location BYTES. 
This is why the opcode of the instruction being examined is entered into 
the accumulator immediately after the label BCKA. The length of the 
instruction is determined by the subroutine LENACC. The contents of 
TABLE are then incremented by an amount equal to the instruction 
length. This is accomplished during the subroutine INCTAB, which is 
shown in figure 8b. 

Once the contents of TABLE have been incremented, the computer checks 
to see whether they are already the same as those of CURAD. If not, the 
program returns to the label BCKA where the next round in the search 
commences. If, on the other hand, the contents of TABLE and CURAD 
are the same, the program jumps to the DECURA subroutine, which is 
iHNustrated in figure 8a. Here, the last contents of location BYTES are 
subtracted from the contents of the CURAD pointer. This will be the 
same value that was added to the contents of TABLE to make them equal 
to those of CURAD. All that remains is to jump back to the central label 
WARM. On the way, the computer passes through the section of program 
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Figure 8. The subroutines DECURA (figure 8a) and INCTAB (figure 8b) are used 
during the ‘Z’ key routine (the instruction ‘backspace’ function). 
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following the BCKB label, so that the previous instruction is printed after 
the label WARM. 


1 The ‘T’ key routine. The description of the ‘T’ key routine can be 

very brief. It consists of the instructions following the label TOF 
in figure 4c. When the computer detects that the ‘T’ key has been de- 
pressed, the BEGIN subroutine is called. This simply makes the contents 
of the CURAD pointer the same as those of BEGAD. The computer then 
returns to the WARM label via the label TOFEND, whereby the first 
instruction (or label) in the program is printed. 


5 The ‘P’ key routine. The ‘P’ key routine consists of all the instruc- 
1 tions following the SXTEEN label in figure 4c. When the computer 
detects that the ‘P’ key has been depressed, the value $@F (decimal 15) is 
stored in memory location COUNT. This location acts as an instruction 
counter. This means that in addition to the instruction already printed on 
the display another 15 instructions will be listed. This gives a total output 
of sixteen instructions. In fact, the first instruction has already been 
printed before the ‘P’ key is depressed. Fourteen instructions are printed 
during the program loop starting at label LINES and the sixteenth in- 
struction is printed when the computer returns to the central WARM 
label. 

Following the label LINES, the subroutine OPLEN is called to establish 
the length of each instruction to be printed. The contents of the cur- 
rent address pointer CURAD are incremented accordingly by means 
of the NEXT subroutine. Then the value contained in location COUNT 
is decremented by one. If this brings the value in COUNT to zero, the 
computer returns to the WARM label via the intermediate TOFEND 
label. As a result, the sixteenth instruction is printed. If the contents of 
COUNT are not yet zero, the computer checks to see whether the EOF 
character 77 has been reached. This would mean that the final instruction 
in the program had been reached, in which case this is the last ‘instruction’ 
to be printed after the return to the central label WARM via the label 
TOFEND. 

lf the EOF character has not yet been reached, the computer calls the 
PRINS routine to print the instruction and then returns to the label 
LINES. The first four instructions following this label are executed 15 
times, unless the EOF character is encountered, because the contents of 
location COUNT have to be decremented 15 times before they will be 
zero. the remainder of the program following the label LINES is only 
executed 14 times (again, unless the EOF character is encountered). On 
the 15th run the computer will branch back to the WARM label at the 
first BEQ instruction. 


1 The ‘X’ key routine. The ‘X’ key routine consists of the instruc- 

tions following the ASMBLR label in figure 4c and also those 
instructions after the [OCORR label. This key routine is directly con- 
cerned with assembling the program. When the computer detects that the 
‘X’ key has been depressed, it specifies the NMI jump vector as being the 
address where the ASSEND label is held ($1647). After the program has 
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been assembled and the ST/NMI key on the main keyboard has been 
depressed, the computer will return to PME by way of ASSEND. 

When the NMI vector is defined the program jumps to the label IOCORR. 
Port B data direction register is then loaded with the same value as at the 
end of the RESET initialisation routine in the original monitor program, 
namely $1E (see chapter 7 in Book 2). The rest of the input/output para- 
meters do not have to be modified. There is now no reason why the pro- 
cessor cannot jump to the assembler. The assembly procedure was fully 
described in chapter 9 of book 2. 


17 After assembly. The program will now be almost ready to run. As 
soon as the program is completely assembled at the instigation of 
the ‘X’ key, the six displays will light. The operator must now depress the 
ST key. This enables a non-maskable interrupt which informs the com- 
puter to execute the instructions following the ASSEND label. 
Firstly, the RESTTY subroutine is called. This subroutine is used by the 
PM program to restore the input/output status to its original condition 
once the cassette subroutines DUMP or RDTAPE have been dealt with. 
Again, this is all old hat and readers are referred to figure 19b and points 
27 and 28 in chapter 14. Really, only port B data direction register needs 
to be restored, but that would take up more memory bytes than simply 
calling the RESTTY subroutine. 
As we already know, all the labels appearing in the program that has just 
been assembled are printed out. This is accomplished during the label 
print routine LABLST, which is shown in figure 9. During this routine, the 
address pointer TABLE, which was ‘borrowed’ earlier for an auxiliary 
address counter, is used for its intended purpose, which is to act as a table 
end address pointer. 
Right at the start of the first assembly phase, location TABLE is loaded 
with a value equal to the current value in the ENDAD pointer minus 
$FF. The initial value stored in location LABELS is $FF. The table 
pointer TABLE + LABELS establishes at which location a label number is 
stored — including its high and low order address bytes. Initially, the table 
pointer indicates the same address as ENDAD. When a label has been 
processed (found and stored), the contents of LABELS are decremented 
by $03. That is quite enough about chapter 9. Readers who feel they 
should brush up on the assembly procedure should take another look at 
chapter 9 in Book 2. 
The LABLST routine in figure 9 copies the intermediate values held in 
location LABELS into the Y index register. Thus, the routine starts by 
making the contents of the Y index register equal to $FF. The contents 
of TABLE are, of course, equal to those of ENDAD minus $FF. The 
instructions after the label LBLSTB serve to print the various components 
of the labels in the correct order, so that the contents of the Y index 
register are decremented by one whenever a label parameter is encoun- 
tered. 
However, before the program reaches the label LBLSTB, two instructions 
under the label LBLSTA are executed. The CRLF subroutine is called so 
that the printing process starts at the beginning of a new line and the 
X index register, which is used as a label counter is loaded with an initial 
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Figure 9. The ‘print label’ routine LBLST is executed after the program has been 
assembled and after the ST/NMI key on the main keyboard has been depressed. 
Up to four addresses and label numbers are printed on one line. 
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value of $04: a maximum of four labels can be printed on any one line. 
Following the label LBLSTB the contents of the Y index register are stored 
in location TEMPX. This is necessary as the routine uses the Y index 
register for two separate tasks. For the computer to report ‘LAB $’, the 
Y index register is loaded with the value $2E. Then the MA subroutine 
(which is part of the subroutine VIESSA) is called to print the message. 
After this, the number of the (first/next) label to be found and stored 
during the first phase of assembly is loaded into the accumulator. There- 
upon, the label number is printed with the aid of the subroutine PRBYT. 
The computer then reports ’: $’ and the high and low order address values 
of the label are printed. Subsequently, a space is printed (PRSP) to separ- 
ate the labels on one line from each other. The computer then checks to 
see whether or not there are any more labels to be printed. If there are, the 
contents of the X index register are decremented by one. The value in the 
X index register indicates the number of labels which can be printed on 
the same (current) line. Next, the processor returns to the label LBLSTA 
to continue the printing on a new line, or returns to LBLSTB to continue 
on the same line. 

Once all the labels have been printed, the computer branches to the label 
LBLSTC. After the current address pointer has been loaded with the 
address of the first instruction in the assembled program (BEGIN), the 
processor jumps back to label EDITW (see figure 4a). Then the text 
‘PM EDITOR’ is printed, followed by the first instruction in the program. 


18 The INPUT key routine. The INPUT key routine consists of the 
instructions following the label INPUT in figure 4c. As mentioned 
in chapter 13, no non-hexadecimal key (function key) has to be depressed 
before this routine is carried out. This means that the computer will accept 
the instruction entry if at least two hexadecimal keys are depressed one 
after the other. The INPUT routine starts by calling the BYT subroutine, 
which is similar to BYTIN except for the first jump to the RECCHA sub- 
routine. The latter is omitted as it comes into the picture after the central 
WARM label (see figure 6). 
After the BYT subroutine, the opcode of the instruction being input is 
held in the accumulator. The status of the N flag informs the computer 
whether a non-hexadecimal key has been depressed, in which case the 
computer branches to the label ILLKEY via the label WRONG and will 
then report ‘ILLEGAL KEY’. 
if a hexadecimal key was depressed, the READ subroutine will be ex- 
ecuted. This is almost identical to the READIN subroutine except for the 
fact that the first two instructions of the latter are missing (see figure 5). 
The READ subroutine starts by storing the opcode of the instruction just 
entered into address buffer POINTH. Next, the rest of the instruction is 
read. Again, the program will branch to ILLKEY if a wrong key is de- 
pressed. 
Then it is the turn of the familiar OPLEN routine followed by the equaily 
familiar NEXT routine. The contents of the CURAD pointer are in- 
cremented by a factor corresponding to the length of the input instruction. 
Location BYTES (as ever) contains the length of the new instruction once 
the value contained in TEMPX has been copied therein. As soon as this has 
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happened, the program jumps to the MEM label. The remainder of the 
INPUT routine is exactly the same as the latter section of the ‘I’ key 
routine. 

One further remark. The contents of the CURAD pointer will be in- 
cremented regardless of whether or not there is sufficient room for the 
extra instruction. 


1 The lukewarm start entry initialisation routine. The lukewarm 
initialisation routine consists of all the instructions following the 
SEMIW label in figure 4a (page 105). This routine starts off in exactly the 
same way as the EDITC routine. In other words, the data buffers are cleared, 
the message ‘BEGAD, ENDAD :’ is printed and the operator defines the 
start and end addresses of the program (INPAR subroutine). If anything 
went wrong during the entry of the start and end addresses, the computer 
will return to the SEMIW label and start again. |f everything was carried 
out correctly, the correct information is transferred to the address locations 
BEGADH, BEGADL, ENDADH, and ENDADL. Furthermore, the con- 
tents of the current end address pointer CEND are made the same as those 
of ENDAD and the contents of CURAD are made the same as those of 
BEGAD. The latter is accomplished with the aid of the BEGIN subroutine. 
Following the jump to the BRK label in figure 4a, the BRK jump vector Is 
specified and the computer goes on to report ‘PM EDITOR’. The program 
then proceeds to the central WARM label in the main PME routine. 
The lukewarm start entry procedure is used to examine a ‘finished’ pro- 
gram, whether it be stored in RAM or in EPROM. The ‘SP’, ‘S’, *L‘ and 
‘P’ keys then have a very important function. When we described these key 
functions earlier in this chapter, we saw that the processes stop as soon 
as the address pointed to by the CEND pointer is reached. Well, one main 
advantage of the lukewarm start entry into PME is that the contents of 
CEND are made the same as those of ENDAD — chosen by the operator! 
Therefore, the computer user can specify exactly how much of the 
finished program he/she wants to examine. By the way, this type of entry 
was discussed in chapter 5 of Book 2 (original editor program). Only there, 
a whole series of data buffers had to be loaded ‘by hand’ to start with. 


2 The warm CEND start entry initialisation routine. This is the final 
point to be discussed in this chapter. The warm CEND start entry 
into PME consists of the initialisation routine following the label SEACND 
in figure 10. Again, the program starts off in exactly the same manner as 
does EDITW and SEMIW, so there is no need to discuss this procedure 
further and we can move straight on to the SCNDA label. Once the 
contents of the current address pointer are made to indicate the first 
address in the program (BEGAD; by means of the BEGIN subroutine), the 
opcode of the instruction being examined is loaded into the accumulator 
and the computer tests to see whether it is the pseudo-opcode 77 (the EOF 
character). If so, the processor executes the sequence of instructions fol- 
lowing the SCNDB label; if not, the contents of CURAD are incremented 
by the length of the last instruction and the next instruction indicated by 
the CURAD pointer is examined via the subroutines LENACC and NEXT. 
As soon at the EOF character is detected the computer branches to the 
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Figure 10. The initialisation routine SEACND is run when the PME program has been 
started via a warm CEND start entry. The contents of the current end address pointer 
CEND are restored to their original value, provided the program contains an EOF 
character 77. 


label SCNDB where the contents of the CURAD pointer are incremented 
by one. This new value is then allocated to the current end address pointer 
CEND. The processor then moves on to the BRK label in figure 4a, the 
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BRK jump vector is defined and the message ‘PM EDITOR’ is printed. 
We are now back at the central WARM label in the main PME routine. The 
original contents of BEGAD and ENDAD are restored to the program read 
from cassette. The value contained in the ENDAD pointer does not necess- 
arily have to be the same as the original, because at the beginning of the 
warm CEND start entry into PME the user can specify a higher end address 
if he/she wishes to provide plenty of space for an extra section of program. 
If this is not done, the computer will most likely report ‘FULL’ when 
extra instructions are entered. 

After dealing with the instructions shown in figure 10, the final value 
contained in the current address pointer CURAD will be that location 
containing the EOF character 77. Not, in other words, the current end 
address. Figure 10 also shows what happens if the program does not con- 
tain an EOF character: the program loop starting at the label SCNDA is 
executed ad infinitum. 

The warm CEND start entry is also applied when there is sufficient room 
for extra instructions in the memory area, but the computer has reported 
‘FULL’. Using the warm CEND start entry the contents of the ENDAD 
pointer can be altered while those of the BEGAD pointer remain the same. 
This means that the contents of the CEND pointer and the location of the 
EOF character will be correct for further instruction entries. 
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16 


The cassette software 


Data storage on magnetic tape 


What is required in the way of software to enable the Junior 
Computer to store data on and retrieve data from ordinary 
magnetic tape? How is the Tape Monitor routine structured? 
These are just two of the many questions which will be answered 
during the course of this chapter. The two main sections of the 
cassette software are the DUMP routine which transfers infor- 
mation from the microcomputer to the cassette tape and the 
RDTAPE routine which does exactly the opposite. These sub- 
routines can be called by either the Printer Monitor or the Tape 
Monitor routines and can also be included tn user programs. 


Firstly, this chapter will examine the DUMP routine and its associated 
subroutines (or rather, sub-subroutines!) in points 1 to 9. This will be 
followed by a detailed description of the RDTAPE routine and its sub- 
subroutines in points 10 to 19. This will bring us to the discussion of the 
main section of the Tape Monitor program and its subroutines in points 20 
to 28. The chapter concludes with a brief discourse of the PLL test soft- 
ware in points 29 and 30. However, before you can retrieve data from 
cassette tape you must be able to store it... 


The DUMP routine. The complete flowchart for the DUMP routine 
1 is shown in figures 1a (first half) and 1b (second half). By far the 
best idea seems to start at the very top of figure 1a! In other words, with 
the section of program between the labels DUMP and DUMPT. As can be 
seen, a total of four memory locations, HIGHER, LOWER, FIRST and 
SECOND, are first loaded with specific data. These locations play an 
important part in determining the bit time and the relative durations of 
the 2400 Hz and 3600 Hz tones — the time taken for a data byte or an 
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ASCII character code to be transferred to tape. This aspect will be con- 
sidered in greater detail in points 3 and 4. 
Following the DUMPT label in figure 1a the processor programs the input/ 
output ports of the PIA. Readers may be forgiven for thinking that this 
should have occurred sooner. However, the four memory locations have 
to be defined first, because the subroutine is not only called during the 
PM and TM programs, but can also be included in user programs. There- 
fore, if the operator wishes to alter the bit time (the baud rate) he/she 
only has to modify the first group of instructions and then call the routine 
Starting at the DUMPT label (not DUMP!). In point 9, for instance, the 
baud rate is modified to suit the KIM system. 
The first nine instructions after the label DUMPT are used to define the 
input and output parameters, so that data transfer from computer to 
cassette can take place. How is port B affected? Ail eight input/output 
lines belonging to port B are programmed as outputs. Furthermore, the 
value $47 is loaded into port B data register. As a result: 
® port line PB7, which is used as the cassette data input and output, will 
be logic zero. 
® port line PB6, which acts as a relay control output, will be logic one. 
This means that transistor T2 of the cassette interface circuitry will be 
turned off, the INPUT relay will not be activated and the green INPUT 
LED (D4) will be unlit (see figure 2 on page 13 of Book 3). 
@ port line PB5, which also acts as a relay control output, will be logic 
zero. This means that transistor T3 of the cassette interface circuitry 
will conduct, the OUTPUT relay will be activated and the red OUTPUT 
LED (D5) will be lit. 
@ the data presented to port lines PB4, PB3, PB2 and PBi, the DCBA 
inputs of the keyboard and display decoder (see IC7 in the circuit dia- 
gram on pages 14 and 15 of Book 1 and figure 9 on page 119 in Book 2), 
will be @011, respectively. This means that the unused output (3) of the 
decoder is selected and the displays, regardless of the information pre- 
sented to the segment drivers via port A, will all be turned off and the 
depression of any key will have no effect. This is why the display is unlit 
(only the red OUTPUT LED is lit) and the main keyboard is disabled while 
data is being transferred to cassette tape. 
® port line PB@, which is the usual serial data output line, is held at logic 
one. Since the only peripheral device being used at this particular moment 
is the cassette recorder, the RS232 line remains in the quiescent state. 
Any data transmitted by the computer takes place by way of port line 
PB7, not PBQ@. 
Now for port A. Port lines PA@. .. PAG, which correspond to the segment 
data, are programmed as outputs and port line PA7 is programmed as an 
input, as usual. Since the value $60 has been loaded into port A data 
register, all the segments should be lit (as far as port A is concerned). How- 
ever, this is prevented by the information being held in port B data register. 
Provided no characters are transmitted by any peripheral equipment, port 
line PA7 will be logic one. This corresponds to the quiescent state of the 
serial data line. In any case, any characters sent by peripheral devices are 
totally unintelligible as far as the DUMP routine is concerned. 
To continue with the description of the DUMP routine, it should be noted 
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(to figure 1b) 


Figure 1a. The first section of the DUMP/DUMPT routine, which transfers data from 
the computer to ordinary cassette tape. 
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Figure 1b. The second section of the DUMP/DUMPT routine. 
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that address location GANG is loaded with the same information as port B 
data register. The purpose of this particular memory location will be ex- 
plained in detail in point 2. Memory locations CHKH and CHKL, used for 
calculating the status of the control bytes, are initially assigned a value of 
zero. This brings us to the actual preparations involved in transferring data 
from the machine to the tape recorder. The contents of memory locations 
SAH and SAL, to provide the first address of the data block to be trans- 
ferred, are copied into the buffers POINTH and POINTL, respectively. The 
last two instructions prior to the label SYNCS cause the value $FF (hexa- 
decimal = 255 decimal) to be loaded into memory location SYNCNT. This 
location is used as a counter for the synchronisation characters which 
precede a tape recording. The remainder of the DUMP routine is described 
in point 7. We now move on to discuss some of the subroutines involved 
in transmitting bits, bytes and characters which are called during the 
DUMP routine. 


2 Various methods of data transmission were described in Book 3. As 
far as the software is concerned, the relative procedures to generate 

the bit period and the high and |ow signal frequencies are as follows: 

@ Port line PB7 acts as the ‘doorway’, through which the data signal is 
passed from the Junior Computer to the cassette recorder. 

@ A data bit is encoded into a squarewave signal which always starts with 
a frequency of 3600 Hz and which always ends with a frequency of 

2400 Hz. 

@ The signal at the output (port line PB7) consists of a mixture of the 
two frequencies — the ratio is determined by whether the data bit being 

transmitted is logic zero or logic one. 

@ A high bit (logic one) will produce a signal consisting of three half 
periods of 3600 Hz followed by four half periods of 2400 Hz. 

@ A low bit (logic zero) will produce a signal consisting of six half periods 
of 3600 Hz followed by two half periods of 2400 Hz. 

Now for the subroutines! 

a. The HIGH subroutine is shown in figure 2a. This provides an output 
signal which is made up of three half periods of 3600 Hz. 

b. The LOW subroutine is shown in figure 2b. This provides an output 
signal made up of two half periods of 2400 Hz. 

It can be seen that for a logic one bit to be transmitted, the HIGH sub- 

routine has to be called once, after which the LOW subroutine is called 

twice. In order to transmit a logic zero bit, on the other hand, the HIGH 

subroutine has to be called twice, after which the LOW subroutine is called 

once. Furthermore, it should be noted that the HIGH and LOW sub- 

routines always alternate during the transmission of an ASCII character, 

regardless of the logic level of the bit in question. 


What exactly happens in the HIGH subroutine in figure 2a? The computer 
has to wait for three half periods of 3600 Hz during which the logic level 
on port line PB7 is inverted three times. The number of wait periods is 
stored in location FIRST the contents of which are copied into the X 
index register at the beginning of the HIGH subroutine. 

The interval timer belunging to the PIA (peripheral interface adapter) is 
put to good use during the HIGH and LOW subroutines. During the HIGH 
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Figure 2a. The HIGH subroutine provides the 3600 Hz period of a data bit 
transmission. 


subroutine, the timer is started by loading the value $7D into location 
CNTA. This provides a division factor of one and ensures that a time out 
does not enable an interrupt request. As soon as a time out occurs, the 
wait loop consisting of the instructions BIT-RDFLAG and BPL in figure 2a 
will be terminated. The timer is restarted almost immediately after a time 
out. Following this, the logic level present on port line PB7 is inverted. 
This brings us back to location GANG. 

Being a true Exclusive-OR (see page 65 in Book 1), the instruction 
EOR #8@ causes bit 7 of the accumulator contents to be inverted, whereas 
the other seven bits remain unchanged. 

Then why not 

LDA - PBD 

EOR #80 

STA -PBD 

instead of 
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LDA - GANG 

EOR #80 

STA-PBD 

STA- GANG ?? 

Well, the reason is quite simple. When a port line which has been pro- 
grammed as an output is read, the computer will always ‘see’ a logic one, 
which is not what we want! This is why a ‘shadow’ memory location 
(GANG) has to be included and why the STA - PBD instruction is always 
accompanied by a STA - GANG instruction. 

The instructions following the HIG label in figure 2a are executed a total 
of three times, since the initial value in the X index register is three — the 
contents of location FIRST. The contents of the X index register are 
decremented by one just before the BNE instruction. The latter causes the 
processor to branch back to the HIG label if the contents of the X index 
register are not yet equal to zero. 

What about the delay times? At the start of the countdown the interval 
timer is loaded with the value $7D. In other words, 7 x 16+ 13+ 1 = 
126 us go by until a time out occurs. There is of course a slight delay 
between starting the timer and inverting port line PB7. This delay is 
10 us, the time taken to execute the instructions LDA-GANG, 
EOR #8@ and STA-PBD. However, the time duration between success- 
ive PB7 inversions is just as long as that between successive timer starts. 
The actual delay between successive inversions is 126 us plus the time 
needed to execute the instructions LDA-HIGHER and STA-CNTA 
(8 us) plus the duration of the loop around the BIT - ROFLAG/BPL 
instructions (7 us). Therefore, the total time delay is somewhere between 
134 and 141 us. Since a full period of 3600 Hz corresponds to 277.8 us, 
a half period corresponds to 138.9 us. As can be seen, the difference 
between the theoretica! value and the value obtained in practice is quite 
marginal. 


Not much needs to be said about the LOW subroutine (figure 2b) 

as it is virtually identical to the HIGH subroutine. Only now two 
half periods of 2400 Hz are involved, which is why the X index register is 
loaded with the value $@2 (the contents of location SECOND) at the start 
of the subroutine. The program loop BIT - RDFLAG/BPL is terminated 
as soon as a time out occurs. [t is important to note that this could be 
caused by either a previous execution of the HIGH subroutine or the LOW 
subroutine, as both routines are exited from before the final time out. 
Following this, about 8 to 15 ys later (allowing the computer up to 7 us 
to detect a time out), the interval timer is started yet again. Another 10 ys 
later the logic level on port line PB7 is inverted. The contents of the 
X index register are then decremented and the process is repeated once 
more. However, the computer does not wait for the time out resulting 
from the last timer start, but proceeds to the RTS instruction. Thus, the 
time out is not detected until the program loop BIT - ROFLAG/BPL of 
the next HIGH or LOW subroutine. 
The interval timer is initially loaded with the value $C3, this being the 
original contents of memory location LOWER. In other words, 12 x 16 + 
3+ 1s pass by before a time out occurs. In addition, the computer spends 
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Figure 2b. The LOW subroutine provides the 2400 Hz period of a data bit 
transmission. 


about 8 us executing the instructions LDA - LOWER and STA-CNTA, 
which brings the current total up to 204 ys. Again, assuming the computer 
to be about 7 us late in detecting a time out, the total will rise to around 
211 us. A full period of 2400 Hz is 416.7 ys, therefore a half period would 
be 208.3 ys. Again, we can see that the practical value is pretty close to 
the theoretical one. 


4 A few general remarks about the HIGH and LOW subroutines. 

First of all, the important thing to note about the HIGH and LOW 
subroutines is that the logic level present on port line PB7 ts inverted 
every half period. The precise logic level is irrelevant, as what is critical 
is the frequency information, in other words, the time duration between 
successive inversions. 
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The HIGH subroutine is always followed by either another HIGH sub- 
routine or a LOW subroutine. This is because the process of transmitting 
a data bit to cassette always starts with at least one HIGH subroutine 
and ends with at least one LOW subroutine. This means that after the 
final 3600 Hz half period, the computer waits for a time out in the 
BIT - RDFLAG/BPL loop of the following HIGH or LOW subroutine. 
Things are slightly different in the case of the LOW subroutine. As soon as 
the last LOW subroutine has been dealt with, the last 2400 Hz half period 
has to be processed. The corresponding time out will be detected during 
the next BIT- RDFLAG/BPL loop, that is, the subsequent HIGH sub- 
routine. The computer will spend fess time in this loop, as in between loops 
the computer deals with the instructions pertaining to the next bit (label 
ONE in figure 3, see point 5), data nibble (label NIBOUT) or ASCII charac- 
ter (label OUTCH) to be transmitted. Clearly, the execution time of these 
instructions must not be longer than the interval between time outs. Thus, 
the computer has about 200 ys to deal with these instructions, which 
should be long enough to process about 50 instructions each taking around 
4 ys. Plenty of time in fact, so there is nothing to worry about. 

Now let us see how the bits, bytes and ASCII characters are transmitted to 
the cassette tape sequentially. 


The NIBOUT/OUTCH subroutine is shown in figure 3 and is devoted 

to transmitting all eight bits of an ASCII character, the code of 
which ts stored in the accumulator, to the cassette deck. The task is carried 
out by the instructions following the label OUTCH. In some instances the 
section of routine following the NIBOUT label is also executed. It may be 
an idea therefore, to examine this section in detail before we go any 
further. 
A data byte is in fact split up into two nibbles before it can be transmitted 
to the tape recorder. These data nibbles have to be translated into their 
equivalent ASCI!t characters. Prior to the jump to the NIBOUT label, the 
contents of the accumulator are a hexadecimal number between @... F. 
The reason for this is explained in point 6 and is illustrated in figure 4 (the 
OUTBTC/OUTBT subroutine). The ASCII code for numbers @...9 are 
30 ...39 and the ASCII code for numbers A... F are 41... 46. In the 
first instance, therefore, the hexadecimal value $3@ has to be added to the 
contents of the accumulator and in the second instance the value $37 has 
to be added. In other words, the contents of the accumulator are always 
incremented by at least $3@ and sometimes as much as $37. The instruc- 
a CMP #@A is used to separate the ‘goats’ (@...9) from the ‘sheep’ 
A...F). 
The OUTCH section of the subroutine starts by loading the value $08 into 
memory location BITS, which is used as a bit counter. This means that the 
program from label ONE onwards is executed a total of eight times in 
succession. Each time a single bit of the ASCII character is transmitted to 
the cassette tape. All the bits in the accumulator are shifted one position 
to the right with the aid of the instruction LSRA. The extreme right-hand 
bit is shifted into the carry position. After this, the shifted contents of the 
accumulator are temporarily stored on the stack (the instruction PHA). 
The computer is now ready to transmit the data bit. The state of the carry 
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Figure 3. The NIBOUT/OUTCH subroutine converts a data nibble to its 
corresponding ASCII character and takes care of the transmission of the ASCII 
character. 
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flag and the instruction BCC determine the direction in which the pro- 
cessor is to move next. If the bit to be transmitted is logic one, the pro- 
cessor runs the HIGH subroutine once and the LOW subroutine twice. If, 
on the other hand, the bit to be transmitted is logic zero, the HIGH sub- 
routine is executed twice and the LOW subroutine is executed once 
(following label ZERO). In either case, the computer ends up at the label 
ZRO where the previous accumulator contents are restored by the instruc- 
tion PLA. The contents of location BITS are then decremented and the 
result determines whether or not more bits are to be transmitted. If the 
result is not zero, more bits are to be transmitted and the processor 
branches back to the label ONE so that the data in the accumulator can be 
shifted along one place again. The subroutine is exited from when the 
contents of location BITS turn out to be zero (all eight bits have been 
transmitted). 


The OUTBTC/OUTBT subroutine is shown in figure 4 and performs 
6 the operation of splitting the data byte to be transmitted into two 
data nibbles so that they can in turn be converted into ASCII. This task is 
in fact carried out by the sequence of instructions following the !abel 
OUTBT. In some instances, however, something else has to be taken care 
of first. The 8 bit number constituted by the data byte has to be added to 
the 16 bit number contained in locations CHKH and CHKL so that a 
check-sum operation can be performed during retrieval from tape to see 
whether the data obtained is correct or not. The addition is carried out 
between the labels OUTBTC and OUTBT, as shown in figure 4. 
Now fet us assume that the data byte to be transmitted is stored tn the 
accumulator just before the OUTBTC subroutine ts called. The data byte 
is immediately copied into the Y index register (the instruction TAY). 
After the carry flag has been cleared, the data byte is added to the number 
contained in memory locations CHKH and CHKL using ordinary 16 bit 
addition. After restoring the original accumulator contents (the instruc- 
tion TYA) the OUTBTC section of the program is complete. 
The OUTBT section of the subroutine also starts by temporarily storing 
the contents of the accumulator in the Y index register. Then four LSRA 
instructions follow, as a result of which the original high order nibble 
moves into the flow order nibble position and the original low order nibble 
is lost. The high order nibble now becomes zero. The contents of the 
accumulator (the original high order nibble) is then transferred to tape 
during the NIBOUT subroutine (see point 5 and figure 3). After this, the 
original contents of the accumulator are restored (the instruction TYA) 
and are masked by the value $@F. This means that the original low order 
nibble of the data byte can now be transferred to tape (again using the sub- 
routine NIBOUT). This, of course, brings us to the end of the OUTBTC/ 
OUTBT subroutine. 


The DUMP routine continued (see point 1). Our previous discussion 
of the DUMP/DUMPT routine led us as far as the SYNCS label in 
figure 1a. This is where 255 synchronisation characters were transmitted 
to the cassette tape. In other words, the accumulator is loaded with the 
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Figure 4. The OUTBTC/OUTBT subroutine transmits a data byte to cassette in the 
form of two data nibbles and, if necessary, updates the contents of locations CHKH 
and CHKL. 


code for the ASCII character SYN ($16) 255 times and this character is 
transferred to the tape recorder via the subroutine OUTCH a total of 
255 times (see point 5 and figure 3). The contents of memory location 
SYNCNT are decremented by one a total of 256 times. The last time this 
happens the following BNE instruction causes the computer to leave the 
program at the bottom of figure 1a and continue from the top of figure 1b. 
As you will remember from chapter 11 in Book 3, the synchronisation 
characters are followed by the ‘start-of-data transmission’ character “*’. 
Not surprisingly, therefore, the accumulator is loaded with the value 
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$2A, the ASCII code for ‘*’, at the top of figure 1b. After this the pro- 
gram calls the subroutine OUTCH. Next, the program number (ID) and 
the memory locations corresponding to the beginning of the data block 
to be transmitted, SAH and SAL, are transferred to cassette. {n all three 
cases a data byte is transmitted, which calls for the subroutine OUTBT 
to be executed. However, the start address (SAH and SAL) has to be 
included in the check-sum process, which is why the OUTBTC subroutine 
is called (see point 6 and figure 4). 


8 The final section of the DUMP routine consists of the instructions 
following the label DATATR in figure 1b. As its name suggests, this 
stands for ‘data transfer’. For the moment has come for the computer to 
transfer the data block. In other words, all the data between the start 
address (SA) and the end address (EA), or rather, up to and including the 
last address (LA) where LA = EA — 1. The familiar address buffer POINTH 
and POINTL is used to keep track of the data being transmitted. In 
figure 1a (see point 1) the contents of POINT were made the same as the 
start address SA. 
The instructions following the label DATATR check to see whether the 
contents of POINT are the same as those of EA (the end address). If so, 
the data transmission proceeds with the ‘tail end’ of the program. More 
about this later. If not, the processor branches to the label HEXDAT. 
Here the contents of the location indicated by POINT are loaded into 
the accumulator and, once the contents of locations CHKH and CHKL 
have been modified, they are transferred to the cassette tape, via the sub- 
routine OUTBTC. After this, the contents of POINT are incremented so 
that they indicate the next memory location from which data transfer is 
to take place and the program returns to the label DATATR for the next 
data byte to be transmitted. 
As soon as the entire data block has been transferred to tape, the contents 
of POINT and those of EA are the same, the program moves on to the tail 
end. Transmission of the data block is terminated with the ‘end-of-data’ 
character ‘/’ (ASCII code $2F), the final contents of locations CHKH and 
CHKL and two ‘end-of-transmission’ (EOT) characters (ASCII code $04). 
This brings us to the end of both the data transfer and the DUMP routine, 
except for one small item... 


As we mentioned previously, the DUMP subroutine may also be 

utilised in user software. If the transfer speed (Baud rate) required 
is the same as that for the Junior Computer, all that needs to be added is 
the instruction JSR - DUMP. 
If, on the other hand, a different baud rate is required, the contents of at 
least two of the four locations HIGHER, LOWER, FIRST and SECOND 
need to be modified. Basically, what happens is that all four locations have 
to be re-defined and the program has to jump to the DUMPT (not the 
DUMP) routine. 
Readers wishing to work with speeds similar to those of the KIM computer 
should use the values given in the DUMKIM routine which is shown in 
figure 5. Firstly, the four memory locations are defined and then the 
computer jumps to the DUMPT routine, which has already been discussed 


138 


at length. 

It can be seen that the contents of locations HIGHER and LOWER remain 
unchanged. This is because the signal frequencies associated with the data 
transfer are the same in both the KIM and the Junior Computer (see fig- 
ure 6 on page 86 in Book 3). However, the contents of locations FIRST 
and SECOND are six times greater, as the transmission speed of the KIM 
computer is six times slower than that of the Junior Computer. 


10 The RDTAPE subroutine is the opposite of the DUMP routine in 
that it allows the user to load a program into the computer from a 
cassette tape. The flowchart of the RDTAPE routine is shown in figures 6a 
and 6b. The first section of the program (the instructions between the 
labels RDTAPE and SYNC in figure 6a) serve to establish the input/output 
parameters of ports A and B. The value $32 is loaded into port B data 
register while the value $7E is loaded into port B data direction register. 
This means that: 
@ port line PB7, which is used as the serial data input/output line, is pro- 
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LDA # 12 
STA — FIRST 


LDA #6C 
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Figure 5. The DUMKIM routine is similar to the DUMP routine, but the baud rate 
has been adapted to suit the KIM computer. 
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Figure Ga. The first section of the RDTAPE routine, which reads data previously 
stored on cassette into memory. 
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Figure 6b. The second section of the RDTAPE routine. 
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grammed as an input and is held at logic zero. 
® port fine PB6, which is used as a relay control! output, is held at logic 
zero. This means that transistor T2 of the cassette interface circuitry 
is turned on, the INPUT relay is activated and the green !NPUT LED is lit. 
® port line PB5, which is used as a relay control output, is held at logic 
one. This means that the transistor T3 of the cassette interface circuitry 
is turned off, the OUTPUT relay is de-activated and the red OUTPUT LED 
is unlit. 
@ the data presented to port lines PB4, PB3, PB2 and PB1, the DCBA 
inputs of the keyboard and display decoder (see point 1), will be 1001, 
respectively. This means that output 9 is active and that display 6, at the 
far right, is enabled. As you will remember from chapter 11 in Book 3, 
display 5 also lights up. More about this in point 15, where we will take 
a look at the CHARVU/VU routine. 
® port line PB@, which is used a serial data input, is programmed as an 
output here and so it can be considered as being switched off. 
Now for port A. The value $7F is loaded into port A data direction regis- 
ter, which means that port lines PA@.. . PAG are programmed as outputs. 
These lines form the segment ‘data bus’ as usual. The function of port line 
PA7 has not been altered either, it still acts as a serial data input. However, 
the RDTAPE routine is not interested in any characters transmitted from 
peripheral devices, only in the information being relayed from the cassette 
recorder. 
The start of the RDTAPE routine may look a little odd, as it does not con- 
tain an instruction to load port A data register. The reason for this is quite 
straightforward: the data register is not assigned any particular value until 
the computer executes the BTWEEN subroutine (see point 16) or the 
CHARVU/VU subroutine (see point 15). As we will see later, the infor- 
mation held in port A data register does not remain constant. 
Before we delve too deeply into the RDTAPE routine, let us take a look 
at all the subroutines used by the program. 
Note: the rest of the RDTAPE routine will be dealt with in point 17. 


1 The RDBIT subroutine is one of the most elementary subroutines 
called by RDTAPE and is shown in figure 7. The RDBIT sub- 
routine reads a data bit from the cassette and sets or resets the carry flag 
depending on whether the input bit was logic one or logic zero. Now for 
the details. Unfortunately, there are quite a few details to consider, as the 
procedure is rather a complicated one. 
To understand the RDBIT subroutine a little better, let us take a look at 
the pulse diagrams given in figures 8a... 8f. Figures 8a (logic zero bit) and 
8d (logic one bit) should look familiar. In fact, they were first introduced 
in chapters 10 and 11 of Book 3. In both cases, part of the phase-locked 
loop (PLL) output signal is involved. Unfortunately, the PLL output 
suffers from a little ‘jitter’ and therefore the more likely signals are re- 
presented in figures 8b and 8e. The PLL jitter is indicated as slight fluc- 
tuations between the high and flow logic levels, very similar to contact 
bounce where keys or switches are concerned. In reality, things are slightly 
more complicated, but the main thing to note here is that the signal level 
fluctuates and that the fluctuations have nothing to do with the end of a 
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Figure 7. The RDBIT subroutine reads in a data bit from cassette. The logic tevel of 
the bit is reflected by the status of the carry flag. 
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Figure 8. The output signals from the PLL during a low bit transmission a. ..c, and 
a high bit transmission d ... f. 


2400 Hz or 3600 Hz period. 

Before the PLL signal reaches port line PB7, which acts as the serial input, 
it is inverted, which explains the requirement for figures 8c and 8f. The 
resultant input signal presented to port line PB7 combines parts of fig- 
ure 8c with parts of figure 8f. The ‘bit train’ is related to the logic levels of 
the consecutive bits being read from the tape. Whatever the bit train looks 
like, the 3600 Hz (first phase) and 2400 Hz (second phase) signals always 
alternate. This is the basic principle behind the RDBIT routine. 

Now let us take a closer look at the RDBIT routine by examining figure 7. 
The routine starts with a wait loop consisting of the instructions BIT - PBD 
and BPL. The computer sits in this loop until such time as the N flag, bit 7 
in port B data register (PB7), becomes logic one. From figures 8c and 8f 
it is quite apparent that port line PB7 becomes logic one at the end of 
3600 Hz period preceding a 2400 Hz period. At that point the computer 
will be terminating the first phase of the bit and starting the second. 
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This occurs at moment t,. Immediately afterwards, the instruction 
LDA -RDTDIS is executed. This instruction loads the accumulator with 
the current value contained in the interval timer resistor. 

Obviously, there is no point in reading the value of the interval timer 
unless the timer has been started at some time or another. Well, in fact it 
was. At moment t; the contents of the timer were read immediately after 
the end of a 3600 Hz period. Before that, the timer was started at the 
beginning of the 3600 Hz period, at moment to. This happened prior to 
the jump to the RDBIT subroutine, during the last phase of the previous 
RDBIT routine. Whenever this routine is executed, a data bit is read and 
stored in the carry flag. During the last phase of RDBIT the next RDBIT 
is prepared, the first RDBIT phase being prepared during the last phase of 
the previous RDBIT. This is because the bit train has regular 3600 Hz - 
2400 Hz - 3600 Hz intervals etc. 

Back to figure 7. After the last 3600 Hz signal has been read, the interval 
timer is started again. The instructions LDY # FF and STY - CNTC ensure 
that the contents of the timer register are decremented from their initial 
value of $FF (255) every 64 us. No interrupt request occurs after a time 
out. This procedure was described in detail in chapter 6 of Book 2. 

We have now reached the label RDBA. The computer waits in the loop 
DEY/BNE until the period of PLL jitter (as a result of the transition from 
3600 Hz to 2400 Hz) has definitely passed. In other words, the computer 
waits until moment t2 in either figure 8c or figure 8f has arrived. The 
computer has to do this, as otherwise the next wait loop (the loop starting 
at label RDBB, which determines when the 2400 Hz period has passed) 
will be terminated prematurely, with disastrous results. 

As soon as the 2400 Hz period is over, moment t3, the BMI instruction 
causes the computer to continue with the final section of the RDBIT 
routine. This brings us to the interesting SEC and SBC - RDTDIS instruc- 
tions, which we will examine separately in point 12. At this stage all you 
need to know is that following these instructions the status of the carry 
flag is the same as the logic level of the data bit just read from tape. After 
this has been done, the interval timer is started once again to prepare the 
way for a new jump to the RDBIT subroutine. 

The final instructions in the RDBIT subroutine (DEY and BNE) provide 
a short delay loop to ensure that any PLL jitter has ceased before the 
computer moves on to the next stage of the program. In other words, the 
computer does not enter the first delay loop of the next RDBIT sub- 
routine until moment t4. 


1 Now for the instructions SEC and SBC - RDTDIS which we en- 
countered in the RDBIT subroutine. The SEC instruction simply 
ensures that the carry flag is set before the subtraction, so the borrow is 
reset (zero). As a result of the instruction SBC- RDTDIS, the current value 
in the timer register is subtracted from the contents of the accumulator 
when the 2400 Hz period has ended. Earlier on, the accumulator was 
loaded with a value relative to the timer register contents at the end of 
the 3600 Hz period (the instruction LDA - RDTDIS). 
The timer is loaded with the value $FF both at the beginning of a 2400 Hz 
period and a 3600Hz period. The count is decremented every 64 ps. 
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Obviously, the longer a 2400 Hz or 3600 Hz period lasts, the lower the 
timer count will be. 

Going back to the subtraction instruction; if the value in the interval timer 
register is less than or equal to the contents of the accumulator prior to 
the subtraction being performed, the result will leave the carry flag set 
(C=1). This is because nothing had to be borrowed, so that the borrow 
flag is still zero (carry = borrow). If, on the other hand, the value in the 
interval timer register is greater than the contents of the accumulator prior 
to the subtraction being performed, the result will reset the carry flag 
(C = 9). 

If the contents of the accumulator are greater than those of the timer 
register (C= 1), the 3600 Hz period must have been longer than the 
2400 Hz period. This means that a logic one bit was involved (see figure 8). 
It follows, therefore, that when the carry flag is reset (C = @), a logic zero 
bit was involved, Thus, 

when C = 1 a logic one bit was received and 

when C = @ a logic zero bit was received. 

As an analogy, take a look at the two towers, A and B, in figure 9. Both 
towers are made up of 255 ($FF) building blocks. During the final phase 
of a 3600 Hz period, one brick is removed from tower A every 64 ws. The 
same happens to tower B during the final phase of a 2400 Hz period. 
When both periods have passed, tower A wil! be higher than tower B if a 
logic one bit was received (A — B = positive) and tower A will be smailer 
than tower B if a logic zero bit was received (A — B = negative). Note that 
the PLL jitter wait loops have no effect on the two timer counts whatso- 
ever. 

The nominal ratios of 3600 Hz signal to 2400 Hz signal are either 2:1 or 
1:2, so the result of the subtraction is always either clearly positive or 
clearly negative, even if the PLL is not spot on tune (for instance, because 
of a slightly different tape speed). For more details, read chapter 11 of 
Book 3. 

The total duration of a complete bit can be calculated to be about 1250 ys: 
a logic zero bit = 833 us of 3600 Hz + 417 us of 2400 Hz 

a logic one bit = 417 us of 3600 Hz + 833 us of 2400 Hz. . 
A bit period of 1250 ps corresponds to a baud rate of 800 bits per second. 
Since the timer is decremented every 64 ys, about 13 decrements will 
occur in the space of 833 us and 6 decrements in the space of 417 ys. This 
means that there is never a risk of the timer contents reaching zero, as the 
initial value was 255 (= $FF). tn other words, the towers in figure 9 will 
never be totally demolished. It also means that the system can be used to 
read in tapes recorded on a KIM computer, which is a factor of 6 times 
slower. It makes no difference whether 13 or 6 x 13 is subtracted from 
255, the result of the subtraction will always be positive. 

~ One aspect of the RDBIT subroutine still has to be clarified. The first bit 
to be read from cassette tape is not preceded by a RDBIT subroutine to 
detect the start of a 3600 Hz period. However, this does not matter in the 
least, since the first bit corresponds to the first synchronisation character 
to be read from cassette. Even if things go terribly wrong with the first bit 
or the entire first synchronisation character, the computer still has another 
254 opportunities to detect one! 
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Figure 9. The tower model illustrates how the RDBIT subroutine works. Tower A is 
higher than tower B in the case of a logic high bit, but lower in the case of a logic 
zero bit. 


Finally, a remark along the lines of point 4. Clearly, the time it takes to 
carry out the instructions before the following RDBIT subroutine must 
not exceed the 3600 Hz period. There are roughly 400 ys available for the 
last four instructions (including the RTS) of the RDBIT subroutine, plus 
the instructions preceding the next run of the RDBIT subroutine. 


13 The RDCH subroutine is shown in figure 10. This routine performs 
the operation of reading in an ASCII character, in other words, a 
series of eight bits in succession. 
During the discussion on the DUMP routine, we discovered that the least 
significant bit of the data byte (b@) is transferred to the cassette first, the 
most significant bit (b7) being transmitted last. This is illustrated in 
figure 3 and was also explained in the paragraph on the OUTCH subroutine 
in point 5. Therefore, if eight data bits are read from the cassette in suc- 
cession, all of course belonging to the same ASCII character, bit @ will be 
the first data bit to arrive and bit 7 the last. 
The RDCH subroutine starts by loading the value $@8 into the X index 
register. This register is used as bit counter during the RDCH subroutine. 
The processor then performs the instructions JSR - RDBIT (read data bit 
from cassette), ROR - CHAR (shift all the data bits in location CHAR one 
position to the right and copy the status of the carry flag into the b/ 
position), and DEX (prepare for the next bit). 
When all the data bits in the byte have been read in, the instructions 
ROL - CHAR and LSR - CHAR are executed. As a result, bit 7 tn location 
CHAR is made logic zero. Bit 7 could well be used asa parity bit, but we 
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Figure 10. The RDCH subroutine reads an ASCII character from cassette. 


have already discovered that the Junior Computer does not use b7 for 
parity. (During transmission of the ASCI! character to cassette, bit 7 was 
made logic zero.) The final two instructions in the RDCH subroutine 
simply copy the contents of memory location CHAR into the accumulator 
(LDA - CHAR) and end the routine (RTS). 


14 The RDBYT subroutine. Now that we know how a data bit and an 
ASCII character are read into memory from cassette (points 
11...13), it seems quite logical to find out how a data byte (two ASCII 
characters) is read in. This requires the RDBYT subroutine which is shown 
in figure 11. | 
During the DUMP routine the high order nibble of the data byte was trans- 
mitted to cassette first, followed by the low order nibble, see point 6. 
Therefore, when the information is read back from tape, the high order 
nibble will obviously reach the computer first, followed by the low order 
nibble. 
The RDBYT subroutine starts by calling the RDCH routine, which we 
have just dealt with. We should all know by now what the latter routine 
does — an ASCII! character is read from cassette tape and stored in the 
accumulator. The ASCII character could either be a coded data nibble, or 
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Figure 11. The RDBYT subroutine reads a data byte from cassette by reading a data 
nibble (ASCII character) twice in succession. 


it could be the ‘end-of-data’ character ‘/’. In the second instance, the 
RDBYT subroutine will be exited from immediately as the Z flag will be 
set. In the first instance, the computer will proceed to label RBB and call 
the subroutine ASCHEX, which is illustrated in figure 12. 

If the ASCII code of a data nibble is involved, this will have to be con- 
verted back to the corresponding hexadecimal number. This does not 
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Figure 12. The ASCHEX subroutine converts an ASCII character code back to its 
hexadecimal value. 


happen however, until the computer is absolutely sure that the ASCII code 
of a data nibble is involved. 

Hexadecimal numbers @...9 are coded 30... 39 in ASCII and the num- 
bers A... F are coded 41... 46. If the ASCII character is not one of the 
values mentioned here, this will be ‘reported’ by the status of the N flag, 
whereupon the processor will exit from the ASCHEX and RDBYT sub- 
routines. 

The ASCHEX subroutine starts with a ‘question-and-answer’ game con- 
sisting of four compare (= CMP) and four branch (= BMI) instructions. 
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ASCI! codes not belonging to a hexadecimal character lead the processor 
to the label NOTVAL where the N flag is set and the routine exited from. 
ASCII codes which do represent a hexadecimal character, however, lead 
the processor to the VALID label where the ASCII character is ‘re-struc- 
tured‘ to provide the correct data. 

As far as the numbers @...9 are concerned, all that is required is for the 
high order nibble of the ASCII character to be made zero. This is ac- 
complished with the instruction AND #@F. Where the numbers A... F 
are concerned, however, the value @9 needs to be added to the contents 
of the accumulator first. This ‘masking’ process also ensures that the N flag 
is reset before the processor exits from the ASCHEX subroutine. 

Back to the RDBYT subroutine and figure 11. The BMI instruction fol- 
lowing the first jump to subroutine ASCHEX instruction (label RBB) will 
cause the processor to exit from the RDBYT subroutine if the ASCII 
character just read was not a hexadecimal number (the N flag is set). If it 
was a hexadecimal number, four shift left (=ASLA) instructions are 
executed — the hexadecimal value is moved up to occupy the high order 
nibble of the accumulator contents. This value is then copied into location 
BYTE. The computer then jumps to subroutine RDCH to read itn another 
ASCII character. Again, if this turns out to be the end-of-data character ‘/’, 
the computer will leave the RDBYT subroutine (label RBA) after setting 
the Z flag. If it is not the end-of-data character, the ASCHEX subroutine 
is called again to ascertain whether or not a hexadecimal value is con- 
cerned. If so, the contents of location BYTE are ORed with the second 
data nibble to form the complete data byte. Just before the end of the 
subroutine, the Y index register is loaded with the value $01. This causes 
both the N flag and the Z flag to be reset. 


15 It is now time for a few RDTAPE subroutines which help to dis- 
play the state of affairs during a read from cassette. These sub- 
routines provide the three indications given in figure 7 of chapter 11 on 
page 89 of Book 3. Let us examine the CHARVU/VU subroutine in fig- 
ure 13 first of all. In most instances ail of the instructions between the 
labels CHARVU and RTS are executed, but in one instance (see the 
BTWEEN subroutine in figure 14) only the instructions following the VU 
label are carried out. This happens when a data block is being searched for, 
is found and is entered into memory. 

The CHARVU subroutine starts by saving the contents of the accumulator 
on the stack. Next, bits @...6 in the accumulator are inverted using the 
instruction EOR#7F. This is then stored in port A data register to be- 
come the new segment code for the displays. Now that we have mentioned 
segment codes, figure 15 contains the 128 different segment code possi- 
bilities. Codes belonging to a particular row all share the same high order 
nibble value, whereas those belonging to a particular column all share an 
identical low order nibble value. The reason for the inversion of the 
accumulator contents will be given in point 17, during the further dis- 
cussion of the RDTAPE subroutine. After port A data register has been 
loaded the contents of the accumulator are restored to their previous value 
by means of the instruction PLA. The contents of the accumulator must 
be saved as the ASCII character needs to be further processed. However, 
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Figure 13. The CHARVU/VU subroutine inverts the bit data and passes it on to the 
display segments. The VU section ensures that displays 5 and 6 are ‘multiplexed’. 
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Figure 14. The BTWEEN subroutine is used to display the ‘search’ pattern of three 
horizontal bars when a data block is being looked for on a cassette tape. 
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Figure 15. The 128 different segment patterns which can be displayed. The patterns 
seen during the cassette routines are shown boxed. 
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before that can be done the ASCII character must report to the display 
(in inverted form). 
For the same reason, the first instruction after the VU label also pushes 
the accumulator contents onto the stack. The accumulator is then loaded 
with the current contents of location GANG, which are the same as those 
of port B data register. The logic level at port line PB1 is then inverted by 
means of the instructions EOR #02 and STA-PBD (the result is also 
stored in location GANG). Let us examine this a little closer: 

PB7 PB6 PB5 PB4 PB3 PB2 PB1 PBO@ 
A=PBD: @ 0 1 1 G 0 1 d 
EOR#02: 0 @© @ 6 6 @ 1 6 
result: 0 Q 1 1 0 0 0 0 
(zero if bits are the same, one if not) 
Port B data register contained an initial value of $32, which was established 
at the beginning of the RDTAPE routine. As a result of this, display 6 was 
enabled — see point 10. The EXOR instruction causes the logic level at 
PB1 to be inverted. This means that display 5 is enabled and display 6 is 
disabled. In other words, the information presented to the display jumps 
from Di6 to Di5. If, on the other hand, display 5 was enabled before the 
VU subroutine was called, it will be disabled and Di6 enabled after the 
EXOR instruction. Thus, every time that the VU subroutine is run, one 
display is enabled and the other disabled. Provided subroutine CHARVU 
or subroutine VU is called a number of times (as will happen when data 
is being read from tape) then it will appear that both displays are lit at the 
same time. This is due to the multiplexing principle which we first en- 
countered in chapter 7 of Book 2. 


1 The BTWEEN subroutine is shown in figure 14 and is called when- 
ever the ‘between’ character (three horizontal bars) needs to be 
displayed. This occurs when the tape passing the playback head contains 
no data. In other words, between data blocks (see page 89 of Book 3). 
The BTWEEN subroutine starts by saving the contents of the accumulator 
on the stack. The code for the three horizontal bars ($36) is then loaded 
into the accumulator and from there passed on to port A data register. The 
accumulator contents are then restored and the subroutine VU is called to 
switch between displays 5 and 6. This situation continues until an ASCII 
character is read from tape and a different segment code is passed on to 
port A data register. 


17 The RDTAPE subroutine continued. Now let us continue with the 
discussion of the RDTAPE routine which we left in point 10. We 
had got as far as the SYNC label in figure 6a. The routine continues by 
loading the value $FF into memory location CHAR. This location was 
discovered in point 13 when the RDCH subroutine was discussed. The 
initial contents of location CHAR were not established at the beginning 
of the RDCH subroutine, nor did-they need to be. The reasons why they 
need to be established now will be explained a little further on. 
After the label SYNCA, the computer reads in the very first data bit from 
the tape. It accomplishes this with the aid of the RDBIT subroutine (see 
points 11 and 12). As soon as a bit is detected it is shifted into bit 7 of the 
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accumulator by means of the instructions ROR - CHAR and LDA - CHAR. 
The subroutine BTWEEN is then called to display the three horizontal 
bars (see point 16). Then the accumulator contents are compared with the 
value $16 to see whether a synchronisation character has been received yet 
($16 is the ASCII code for the synchronisation character). 


At this particular moment the computer cannot possibly have detected a 
synchronisation character as the RDBIT subroutine has only been run 
once. After the instructions following the SYNCA label have been 
executed once the value contained in location CHAR will be either 
01111111 or 

11111111 depending on the value of the detected bit. 

Compare this with the hexadecima! code for the synchronisation charac- 
ter: 

00010110. 

The initial value contained in location CHAR (=$FF) prevents a synchron- 
isation character from being detected until at least eight bits have been 
read in succession. 

When a synchronisation character is at last detected, the value $QA is 
loaded into memory location SY. The processor has now reached the label 
TENSYN. At least ten synchronisation pulses have to be read in from tape 
without being interrupted by a different character. As soon as this happens 
the computer interprets it as the beginning of a data block to be entered 
into the memory banks. If the detected character is not a synchronisation 
character, the computer will branch back to the SYNC label to repeat the 
procedure. 

During the program loop around the TENSYN label, the jump to RDCH 
subroutine instruction is followed by a jump to CHARVU subroutine 
instruction. This means that something is going to happen to the display. 
Unless a different character is read in during the RDCH subroutine the 
value $16 will be held in the accumulator. By inverting bits @...6 in the 
accumulator (see point 15) port A data register is loaded with the value 
$69. As can be seen from figure 15, the second situation in figure 7 of 
chapter 11 will be displayed to indicate the fact that a synchronisation 
character is being read. As the subroutine CHARVU is called repeatedly, 
during both the loop around the TENSYN label and the loop around the 
STAR label (see top of figure 6b), displays 5 and 6 will be alternately 
enabled continuously and will therefore both appear to be ‘on’ at the same 
time. 


Once the computer has detected ten synchronisation characters in 
1 a row (eleven in all, as one was detected before the label TENSYN 
was reached), the processor arrives at label STAR at the top of figure 6b. 
The program loop around this label is not terminated until all the other 
synchronisation characters (as many as 255 — 11 = 244) have been re- 
ceived. There are two ways in which the loop can be terminated. One way 
is if the start-of-data character ‘*’ is detected. The processor will then 
continue from the label STARA. The secand method is if a character other 
than a synchronisation character or a start-of-data character is detected. 
If this second instance should occur then something has gone wrong and 
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the whole procedure has to start all over again . . . back to the label 
RDTAPE. 

Therefore, the label STARA is reached as soon as the start-of-data charac- 
ter has been read in from tape. The ASCII code for this character is $2A. 
During the CHARVU subroutine this value is inverted and stored in port A 
data register. This provides the segment code $55, which corresponds to 
the third situation in figure 7 of chapter 11. This means that the computer 
is reading the specified data block. 

During the next section of the RDTAPE routine the computer checks to 
see whether the next data byte to come along (the label identifier) corre- 
sponds to the contents of location ID. In other words, whether the 1D 
entered by the operator is the same as the ID written on the tape. If so, 
the processor continues with the instructions following the RDSA label. 
If, on the other hand, the two numbers are not the same, the computer 
checks to see whether the operator entered a ‘special’ 1D (00 or FF). 

If the operator entered an !D other than @@, FF or that stored on the tape, 
the processor jumps back to the start of the RDTAPE routine via the label 
SYNVEC. We have now come to the conclusion that the data block 
encountered on the tape was the wrong one and we shall have to wait 
until the correct data block comes along. Obviously, it all depends on what 
is stored on cassette. in between the jump to subroutine CHARVU (label 
STARA) and jump to subroutine BTWEEN (label SYNCA) instructions, 
the segment code for the third situation in figure 7 of chapter 11 will 
appear on the displays very briefly. This indicates that the processor has 
returned to the start of the RDTAPE routine (see figure 6a). 

Apart from the ID being the wrong one, there are three other possibilities: 
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Figure 16. The CHKSUM subroutine adds the value of the current data byte to the 
16 bit contents of locations CHKH and CHKL. 
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A. An identifier between 01... FE has been found. The processor moves 
on to execute the instructions between the labels RDSA and FILMEM. 
As a result, the low order start address (SAL) is read in to the computer 
via the RDBYT subroutine. The CHKSUM subroutine is then called, see 
figure 16. This routine simply saves the contents of the accumulator, adds 
this current value to the 16 bit number held in locations CHKH and CHKL 
and restores the previous accumulator contents. Upon the return from the 
CHKSUM routine the accumulator contents are stored in the address 
buffer POINTL. The high order byte of the start address is dealt with in 
the same manner and the result stored in address buffer POINTH. Effec- 
tively, the address buffer POINT now contains the start address of the data 
block being received and the value contained in location CHK has been 
updated. 
B. The operator entered an ID of 6. The processor once again finds itself 
at label RDSA and continues as above. This is correct, as when an ID 
of 00 is entered, the identifier on the tape is ignored and the first data 
block to come along is stored in memory. 
C. The operator entered an ID of FF. In this instance the values of the 
high and low order bytes of the start address stored on tape are added 
to the contents of location CHK. Then the start address previously entered 
by the operator is copied into the address buffer POINT. This is once again 
correct as both the identifier and the start address on tape are ignored 
when an ID of FF is entered. However, the high and low order bytes of 
the start address have to be added to the contents of CHK so that the final 
checksum operation produces the correct result. In all cases we have now 
reached the label FILMEM. 


19 The instructions following the FILMEM label in figure 6b read in 
the entire data block previously recorded on tape and enter it into 
the computer memory. The process once again starts with the RDBYT 
subroutine, which was described in point 14 and is illustrated in figures 11 
and 12. If, at the end of the RDBYT subroutine, the data concerned is 
invalid (N = 1), the computer will return to the start of the RDTAPE sub- 
routine. If, on the other hand, the processor encounters the end-of-data 
character ‘/’, it will proceed to the label CHECK. However, if the data 
concerned ts still valid, the contents of location CHK are processed once 
more (JSR - CHKSUM). After this, the data that has just been read in is 
entered into a memory location determined by the current contents of the 
address buffer POINT. As mentioned previously, the initial contents of 
POINT correspond to the start address of the data block being entered 
into memory from cassette. 
Once the data has been stored in memory, the contents of POINT are 
incremented, which brings us to the label FMA. Here, the subroutine VU 
is called. This routine was described in point 15 and illustrated in figure 13. 
It causes the two displays, Di5 and Di6, to be enabled and disabled alter- 
nately. By the way, the segment code which was loaded into port A data 
register during the CHARVU subroutine following the label STARA will 
still be displayed. The last instruction in this particular program section 
simply causes the processor to jump back to the label FILMEM so that 
the next data byte can be processed. 
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To end the discussion of the RDTAPE routine we will take a quick look 
at the final instructions after the CHECK label in figure 6b. When the 
processor encounters the end-of-data character, ‘/’, the contents of mem- 
ory location CHKL which were stored on the Cassette are loaded into the 
accumulator via the RDBYT subroutine. This value is then compared to 
the contents of location CHKL which has just been calculated from the 
data being received by the computer. If the two values are not the same, 
an error has occurred somewhere and the process will have to be repeated, 
so the computer branches back to the start of the RDTAPE routine, via 
the SYNVEC label. If, on the other hand, the two final values are the 
same, the processor will move on to test whether the two values for CHKH 
are also the same. If they are, the processor exits from the subroutine via 
the RTS instruction. If they are not the same, the processor branches back 
to the start of RDTAPE once again. 

If either the two values for CHKL or the two for CHKH are different, the 
data block (albeit somewhat corrupted) is stored in computer memory, 
but the RDTAPE subroutine is not exited from. This can be seen on the 
displays, as the third situation in figure 7 of chapter 11 will be followed by 
the first situation. Normally speaking, the display will be unlit when the 
computer leaves the RDTAPE routine after a successful data storage 
procedure. In addition, the Printer Monitor program informs us of the fact 
by reporting the text ‘READY’. When called by the Tape Monitor pro- 
gram, the computer again informs us that it has finished reading in a data 
block from cassette by reporting ‘id xx’ on the displays. This particular 
aspect will be dealt with later on in this chapter. 


°20 The main routine of the Tape Monitor program. The flow chart of 
the main section of the Tape Monitor (TM) program is illustrated 
in figures 17a... 17c. The structure of the routine is very similar to that 
of the other system programs for the Junior Computer. To start with, 
there is an initialisation routine consisting of the instructions between the 
labels TPINIT and TPI, and the following instructions between the labels 
TP! and TPTXT. The latter label also acts as a focal point: the central label 
of the main TM routine. The computer returns to this label at the end of 
the PAR key routine (see point 24), once the various parameters (ID, SAH, 
EAH, EAL, BEGADH, BEGADL, ENDADH and ENDADL) have been set 
up. After the GET key routine (see point 22) and the SAVE routine (see 
point 23), the computer runs the second section of the initialisation 
routine, starting at label TMI, before returning to the TPTXT label. After 
the SEF and EDIT key routines (see point 25) the TM program is exited 
from completely and the computer enters the editor mode. 

Straight after the central TPTXT label, the name of the particular memory 
location is displayed, along with its current contents. The computer then 
waits for a key to be depressed. Depending on which key is depressed, the 
computer will execute either a key routine or, if a hexadecimal key was 
depressed, the data key routine. 

Upon close examination of the TM program software it will become 
apparent that the memory location DISCNT has a very important part to 
play in the proceedings. The value contained in this location determines 
which of the nine parameters have to be displayed and/or altered. There- 
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Figure 17a. The first section of the main Tape Monitor program. 
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Figure 17b. The second section of the main Tape Monitor program. 
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Figure 17c. The third and final section of the main Tape Monitor program. 
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fore, depending on the actual contents of location DISCNT (between 00 
and @8), one of the nine parameters will be displayed. Thus: 

DISCNT = @@ : display/alter ID 

DISCNT = 01 : display/alter SAH 

DISCNT = @2 : display/alter SAL 

DISCNT = @3 : display/alter EAH 

DISCNT = @4 : display/alter EAL 

DISCNT= @5 : display/alter BEGADH 

DISCNT = @6 : display/alter BEGADL 

DISCNT = @7 : display/alter ENDADH 

DISCNT = @8 : display/alter ENDADL 

This gives us a general impression of what the Tape Monitor program 
actually does — now for the finer details. 


a1 The TM program initialisation routine. The main TM routine starts 
by loading the value $00 into the five locations associated with the 
cassette procedure; ID, SAL, SAH, EAL and EAH. Following the label TPI 
the parameter counter location DISCNT is also loaded with the value $00. 
This point can be reached from three different routes and in each case the 
value $@@ is held in the X index register. Therefore, whenever the program 
is executed from the TPI label onwards, the message ‘id xx’ will appear on 
the display. 
The next part of the procedure is to load port B data register with the 
value $06 and port B data direction register with the value $1E. This 
means that port lines PB1... PB4 are programmed as outputs and that the 
display is switched off. Following the TPTXT label the processor calls the 
TAPDIS subroutine twice in succession. This routine determines which of 
the nine messages are to be displayed. This routine is described in point 27 
and is illustrated in figure 19. The GETKEY subroutine is then executed 
to obtain the value of a depressed key. Therefore, by the time the processor 
reaches the label GET, the value of the depressed key will be held in the 
accumulator. Depending on which key was depressed, either a specific key 
routine will be executed or the data key routine will be run. 


22 The GET key routine consists of all the instructions following the 
GET label at the bottom left-hand side of figure 17a. When the 
computer detects the fact that the GET key has been depressed, the 
RDTAPE subroutine is called. This routine was described in detail in points 
10... 19. All the data that is received from cassette is stored in memory. 
Following the RDTAPE subroutine, the computer checks to see whether 
the ID of the data block was FF. If not, the processor proceeds to label 
GETB where the contents of the X index register are made zero and the 
processor returns to the central label TPT XT, via the label TP!. The mess- 
age ‘id xx’ then appears on the display. The slight detour by way of the 
TP! label was necessary in order to correct the input/output situation. The 
input/output status was changed during the RDTAPE routine. 

Where the entered ID was FF, the processor carries out the instructions 
after the GETA label before reaching the GETB label. The first of these 
instructions call the subroutine ADJPNT, illustrated in figure 18, which 
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Figure 18. The ADJPNT subroutine decrements the contents of the address buffer 
POINT and is called during the execution of the GET key routine. 


performs the simple operation of decrementing the contents of address 
buffer POINT. The reason for this is that location POINT indicates the 
address of the most recent data byte to be read from tape during the 
RDTAPE routine. At the end of the RDTAPE routine the contents of 
POINT are incremented by one. Therefore, when the complete data block 
has been read in to memory, location POINT indicates an address which is 
one higher than the address of the last byte in the data block. In other 
words: POINT = EA=LA + 1. 

The end address is not directly defined on cassette, but is deduced from 
the start address (either on tape or entered manually) plus the number of 
bytes in the data block plus one. 

Upon the return from the ADJPNT subroutine the contents of location 
POINT indicate the final address (LA) of the data block that has just been 
read in. And for a very good reason. The four instructions following the 
jump to the ADJPNT subroutine instruction cause a new start address to 
be defined. This applies when a number of data blocks belonging to 
unassembled sections of the same program have to be ‘glued’ together, so 
that the end-of-file characters have to be removed. The trick of entering an 
ID of FF was discussed in some length in chapter 11 of Book 3. It may be 
an idea to take another look at figure 11 of that chapter as weil. 

From the software of the GET key routine it can be seen that no data 
needs to be entered before the next data block is read in to memory. After 
all, the start address has been defined automatically and the contents of 
Jocation 1D will still be FF. All that has to be done before depressing the 
GET key is to make sure that the next data block on the cassette tape is 
the correct one! 
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93 The SAVE key routine consists of all {!) the instructions following 
the label SAVE in figure 17a. When the computer detects that the 
SAVE key has been depressed, the DUMP subroutine is called (see points 
1... 9). A previously defined data block is then stored on cassette. Before- 
hand memory locations 1D, SAH, SAL, EAH and EAL must have been 
loaded with the correct information. 
At the end of the DUMP subroutine the contents of the X index register 
are cleared. This means that the message ‘id xx’ will be displayed at the 
end of the procedure, when the processor reaches the central label TPTXT 
via the TP! label. As in the GET key routine, the section of program after 
the TP! label has to be executed to restore the input/output parameters. 


IA The PAR key routine consists of all the instructions following the 
PLUS label in figure 17a. When the PAR key is depressed, the 
contents of the parameter counter DISCNT are incremented by one. If 
the result turns out to be $09, the value $@@ is loaded into location 
DISCNT. Therefore, depressing the PAR key simply causes the contents 
of the next of the nine parameter locations to be displayed. The order in 
which the nine parameters are presented was given in point 20. After the 
message ‘ENDLxx’ and a subsequent PAR key operation, the message 
‘id xx’ is displayed. 


a5 The SEF key routine consists of all the instructions following the 
FILES label in figure 17b. When the SEF key is depressed, the 
contents of location BEGAD are stored in location SA (start address) and 
the contents of CEND are copied into location EA (end address). CEND is, 
of course, the current end address of the (as yet) unassembled program 
which is to be stored on cassette. Obviously, the 1D must be defined before 
the SEF key is operated. : 

After the DUMP routine has been executed the Tape Monitor program is 
exited from anda warm start entry is made into the editor mode. However, 
before this can happen, the BEGIN subroutine is executed: the current 
address pointer CURAD is loaded with the contents of location BEGAD 
which also acts as the start address. Furthermore, port B data direction 
register is updated. Finally, the contents of the stack pointer are set to 
SFE, after which the processor makes a warm start entry into the editor. 
The EDIT key routine consists of the instructions after the DAT lfabel in 
figure 17b. All that happens when the EDIT key is depressed is that the 
processor makes a cold start entry into the editor. 


2 The data key routine. By this time all the non-hexadecimal keys 
will have been filtered out, which leaves us with the data keys 
@... F. This involves the remainder of the main Tape Monitor program — 
the data key routine. This consists of all the instructions following the 
SHIFT label in figure 17b and overflows into figure 17/c. 
A hexadecimal key is processed into the new low order nibble of the data 
buffer INH. The previous low order nibble becomes the new high order 
nibble. There should be no need to go into too much detail here as all this 
has been described before. 
The modified contents of the buffer INH must be stored in one of the nine 
parameter locations. Which one depends on the contents of the parameter 
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counter DISCNT. The data is stored in location 


ID (label SHIFT) if DISCNT = @@ 
SAH (label STSAH) if DISCNT = 61 
SAL (label STSAL) if DISCNT = @2 
EAH (label STEAH) if DISCNT = @3 
EAL (label STEAL) if DISCNT = 4 


BEGADH (label STBEGH) if DISCNT = @5 

BEGADL (label STBEGL) if DISCNT = @6 

ENDADH (label STENDH) if DISCNT = 07 

ENDADL (label STENDL) if DISCNT =@8 

Once the particular parameter has been entered, the processor returns to 
the central label TPT XT to display the result. 

This just about ends the discussion of the main Tape Monitor program. 
Only one subroutine and one sub-subroutine still need to be mentioned. 


a7 The TAPDIS subroutine is illustrated in figure 19. This subroutine 
has the job of making sure that one of the nine parameter mess- 

ages appears on the display. Displays 1...4 indicate the parameter 

location while displays 5 and 6 show its contents. We will briefly recap on 

part of chapter 7 (Book 2) to see that the next display to be lit depends on 

the value contained in the X index register: 

when X =@8 display 1 will be enabled 

when X =@A display 2 will be enabled 

when X =@C display 3 will be enabled 

when X = @E display 4 will be enabled 

when X = 1@ display 5 will be enabled and 

when X = 12 display 6 will be enabled 

Immediately after the TAPDIS label in figure 19, port lines PA@... PA6 

are programmed as outputs. These port lines will contain the segment data 

to be displayed. Following the label SID the value $08 is loaded into the 

X index register. This means that display 1 is enabled (during the TDISP 

routine which follows shortly). However, before the TDISP routine is 

called, the computer must know which location to display. This in turn 

depends on the contents of memory location DISCNT. A form of ‘in- 

terrogation’, similar to that for the key routines, is then carried out to 

determine the value held in location DISCNT. The Y index register is used 

as the ‘interrogator’ initially, but when the computer has discovered which 

memory location is to be displayed, the Y index register assumes a different 

role. It then serves as an index for the look-up table which is used during 

the TDISP routine. 

When the label COMPNT in figure 19 is reached (this is when the TDISP 

subroutine is called), the following situation arises: 


DISCNT = @@; contents of ID stored in INH; index = @@ 
DISCNT = @1, contents of SAH stored in INH; index = 64 
DISCNT = @2: contents of SAL stored in INH; index = @8 


DISCNT = @3; contents of EAH stored in INH; index = OC 
DISCNT = @4; contents of EAL stored in INH; index = 1@ 
DISCNT = @5, contents of BEGADH stored in INH; index = 14 
DISCNT = @6; contents of BEGADL stored in INH: index = 18 
DISCNT = @7, contents of ENDADH stored in INH; index = 1C 
DISCNT = @8; contents of ENDADL stored in INH; index = 2@ 
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Figure 19. The TAPDIS subroutine establishes which of the nine parameter locations 
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Figure 20. The TDISP subroutine is used to enable each of the displays in turn and 
also checks to see whether a new key has been depressed. 


One execution of the program loop starting at the TDISP label can be com- 
pared with the CONVD subroutine in the original monitor program (see 
figure 14 in chapter 7 in Book 2). First of all, the accumulator is loaded 
with data derived from the look-up table TLOOK. The data selected 
depends on the current contents of the Y index register. The data from the 
look-up table acts as the segment code and is therefore stored in port A 
data register. The X index register is used to determine which particular 
display is to be enabled and its contents, therefore, are transferred to 
port B data register. 
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Figure 21. The LDAINH subroutine is part of the subroutine SCAND/SCANDS 
contained in the original monitor program. 


After saving the contents of the Y index register in the accumulator (the 
instruction TYA), the Y index register is used for a short delay loop. The 
length of the delay determines for how long each display is actually lit. 
After the delay the previous contents of the Y index register are restored 
whereupon the value in the X index register is incremented twice to enable 
the next display and the value in the Y index register is incremented by 
one to index the next segment code to be loaded from the {ook-up table. 
When the value held in the X index register is $10 (it is time to enable 
display 5), the processor terminates the loop and calls the LDAINH 
subroutine. 
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mote 


oie a 


3 Li x-« 
7 


X=@E 


x= 10 


22 $0206 


LOA #7D 
STA — HIGHER 3600 Hz delay period 
LDA #3 
STA ~ LOWER 2400 Hz delay period 
LDA #93 
STA — FIRST number of 3600 Hz half periods 


LDA #42 


STA — SECOND number of 2400 Hz half periods 


LOA #47 
LOX # FF 
STA — PBD 
STA — GANG 
STX — PBDD PRO... P87 output 
LDA #00 
LOX #7F 
see DUMP STA — PAD PAD+ 66 
STX — PADD PAG... PAG output; PA7 input 
LDA #0D 
STA ~ CTL cTL “oD 


STA — CTH CTH «DD 


SYNOUT 


a 


L 


a 


LDA #@1 
AOC — CTL 

STA — CTL CTL: =CTL+1 
LDA #66 

ADC — CTH 


STA — CTH CTH:=CTH+C 






C=1; yes 
EXIT 
a C=6; no 
LDA # 16 A “sync 
| paws} JMPMONITOR $1C1D 
81915 22 


Figure 22. The DUMCHK routine can be used to record a series of synchronisation 
characters on to tape so that the PLL can be calibrated correctly. 
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The LDAINH subroutine is new, but not totally unfamiliar (see figure 12 
on page 122 of Book 2 and address $1DA7 in the listing at the back of 
this book). As can be seen, the processor jumps to the middle of the 
SCAND/SCANDS subroutine in the original monitor program. From 
figure 21 (which is identical to figure 11 in chapter 7), it is apparent that 
the SCAND/SCANDS subroutine is called when the contents of the data 
buffer INH have to be displayed. 

Once the subroutine LDAINH (alias SCAND/SCANDS) has been executed, 
the contents of the accumulator will reveal whether or not another key has 
been depressed. This comprises the final section of the routine in figure 21 
following the label AK. 

This brings us to the end of the discussion on the Tape Monitor program 
and almost to the end of this chapter. 


a9 In chapter 11 of Book 3 we described two methods for calibrating 
the phase-locked loop (PLL) of the cassette interface. In both 
instances a test program is required. !f the PLL is calibrated with the aid of 
the display, both a read and a write operation are required. If, on the other 
hand, an oscilloscope is used, data need only be stored on cassette before- 
hand. To recap on the details, see pages 101... 108 in chapter 11 of 
Book 3. 

When using the display to calibrate the PLL, a series of un-interrupted 
synchronisation characters have to be written onto the cassette tape. This 
is accomplished with the aid of the DUMCHK program given in figure 22. 
Readers have already seen the hex dump for this in the first half of table 2 
on page 102 of Book 3. The start address is 02090. 

The first few instructions of the DUMCHK routine are identical to those 
of the DUMP routine (see figure 1a). It is not until three instructions 
before the SYNOUT label that the routine differs. Here, the locations CTL 
and CTH are both loaded with the value $DD. The 16 bit figure contained 
in locations CTH (high order byte) and CTL (low order byte) is in- 
cremented each time the processor has executed the program loop around 
the label SYNOUT. As long as the result of the addition does not generate 
a carry, the computer continues to produce synchronisation characters 
(the instructions LDA # 16, JSR - OUTCH and JMP - SYNOUT). However, 
should the addition generate a carry, the computer will branch to the 
EXIT label from whence it will return to the original monitor program. 
The start address (620) will then appear on the display. 

The carry flag is set when the contents of memory location CTH become 
zero: in other words, after the addition when both CTH and CTL contain 
the value $FF. Just before the processor reaches the label SYNOUT for 
the first time, locations CTH and CTL were both loaded with the value 
$DD, giving a 16 bit figure of $DDDD. This means that a total of 

$190000 - $DDDD = $2223 = 8739 (decimal) 

synchronisation characters are generated. As each character contains 8 bits 
and each bit lasts 1250 us (see point 3) the total duration of the recording 
is 1250 x 8 x 8738 pus = 87 seconds, or 1% minutes. 

As would be expected, the opposite of the DUMCHK routine has the task 
of reading the synchronisation characters from the cassette and is called 
RDCHK. This subroutine is shown in figure 23. Again, the hex dump can 
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23 


$9251 





[sraroo 
[sra~eane 


LOA # FF 












PBS and PB7 input 







PA@... PAG output 
















CHAR + FF 








bit >Cc 







81915 23 


Figure 23. The RDCHK routine can be used to read a series of synchronisation 
characters from tape so that the PLL can be set up accurately. 
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24 





SAVE 


LDA #7D 
STA — HIGHER 3600 Hz delay period 


LDA #C3 





STA — LOWER 2400 Hz delay period 
LDA #93 


STA — FIRST number of 3600 Hz half periods 


LDA #@2 
STA — SECOND number of 2400 Hz half periods 
LDA # 47 
LOX # FF 

STA — PBD 
STA — GANG 
STX — PBDD PBE ... PB7 output 


LDA #06 


LDX # 7F 
STA — PAD PAD < 66 


STX — PADD PAG... PAG output; PA7 input 


INFNIT 






LOW bit 1 


ow 


bit @ 


o 


r- - 
= 


JMP — INFNIT 
81915 24 


Figure 24. The SAVE routine transfers a continuous stream of alternating ones and 
zeros to cassette so that the PLL can be set up using an oscilloscope. 


be found on page 102 of Book 3. The first few instructions, between the 
labels RDCHK and SYB are virtually identical to those of the RDTAPE 
subroutine between the labels RDTAPE and TENSYN. Therefore, let us 
move straight on to the instructions following the SYB label. A character 
is read in by means of the RDCH subroutine and the ASCII code for that 
character is held in the accumulator. Next, the computer checks to see 
whether or not it was a synchronisation character. If so, the processor re- 
turns to the SYB label. If not, the processor returns to the label SYNCHK. 
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The programs given in figures 22 and 23 are intended purely for calibrating 
the PLL by way of the display. The question is: what can be seen and 
when? This depends on two instructions in figure 23. Immediately after 
the return from the BIWEEN subroutine the ‘search’ pattern, three 
horizontal bars, appears on the display. After the CHARVU subroutine has 
been executed, the ASCII code for the synchronisation character is in- 
verted and passed on to the segments of the display. The indication that 
the computer is reading synchronisation characters will remain on the 
display for as long as synchronisation characters continue to be read, 
provided of course that the PLL has been correctly calibrated. If any other 
pattern appears on the display, then there could be a gap on the tape 
where no synchronisation characters have been recorded, or the PLL is 
incorrectly adjusted. However, this will only happen for a very brief period 
indeed before the display reverts to the search pattern or the synchronis- 
ation pattern. 


3 The SAVE routine in figure 24 is part of the auxiliary software 
required when the PLL is calibrated with the aid of an oscilloscope. 
Again, the hex dump has already been given on page 103 of Book 3. 
The SAVE routine transmits a series of alternating ones and zeros. Not 
surprisingly, the instructions between the labels SAVE and INFNIT are 
identical to those of the DUMP/DUMPT routine. Also, there is an infinite 
program loop around the label INFNIT, as a result of which a bit train 
consisting of alternate ones and zeros is generated. The latter is simply a 
question of calling the HIGH and LOW subroutines the right number of 
times and in the right order. The infinite loop can, of course, be exited 
from if the RST key is depressed. 
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Appendix 1 


The complete listing of the PME system program 


The following pages contain the complete listing of the PME system 
program. Each book page corresponds to a single assembler page consisting 
of 56 lines. 

Assembler page 12 contains the instructions belonging to the BINAR and 
PMBINA routines which are required to switch back to binary arithmetic. 
See appendix 4 for further details. 


A few addresses are well worth noting: 
$1500 : EDITC 

$1533 : BRK 

$153D: EDITW 

$1667 : SEMIW 

$1705: SEACND 

$17F6: BINAR 

$17FA: PMBINA 
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O001: 
O00: 
0063: 


T4F8 


14F8 
14F8 
14F8 
14F8 
T4F8 
14F8 
14F8 
14-8 
14F8 
14-8 
14F8 
14F8 
14F8 
14F8 
14F8 
14F8 
14F3 
14F8 


14F8 
14F8 
14F8 
14F8 
14F8 
14F8 
14F8 
14F8 
14F8 


14F8 
14F8 
14F8 
14F8 
14F8 
T4F8 
14F8 
14F8 
14F8 
14F8 


SOURCE LISTING OF THE PM EDITOR 


WRITTEN BY G, 


DATE 


THE PM EDITOR USES HEXADECIMAL LABELS 


kKakKKR KAKA K KA KKR KA KKK KK KRKaKKR KKK 


POINTERS AND TEMPS IN PAGE ZERO 


Ra KkKk aK aK Kaha Kah KKK KKK KKK KKK KKK 


BEGADL 
BEGADH 
ENDADL 
ENDADH 
CURADL 
CURADH 
CENDL 
CENDH 
TABLEL 
TABLEH 
LABELS 
BYTES 
COUNT 
INK 
POINTL 
POINTH 
TEMPX 
NIBBLE 


KO RI KOR RRO KR aK ak a RR Rk 
PME'S POINTERS AND TEMPS IN PAGE 1A 


HK KKK KKKKA KKK KKaKaK KEK KK KEKE KKK 


PARAL 
PARAH 
PARBL 
PARBH 
NAIL 
NMIH 
BRKTL 
BRKTH 
PBDD 


KKK K EK IKKKKIEKHEKKEKEKKKKEKKKAKERK 


ADDRESSES IN THE STANDARD EPROM 
SEC CPPS ESSSOCS OCS SS EEE ESS SSS SS 


SAVE 
BEGIN 
OPLEN 
LENACC 
ADCEND 
RECEND 
UP 
FILLWS 
NEXT 
ASSEMB 


ORG 


25 JUNE 


+ + * he + & HR + RH HE He HH FH RH HM HR HF MH 


+ + & & & + EF H H 


+ + ee + He FH HH 


S14 F8 


NACHBAR 


$00E2 
SO0E3 
SO0E4 
SQOES 
SOOE6 
SOOE? 
$00E8 
SO0E9 
SOCEC 
SOOED 
SQQ0EE 
SOOF6 
$O00F? 
SOO0F9 
SOOFA 
SO0FS 
$O0FD 
SOOFE 


$1463 
$1A64 
$1A65 
$1A66 
SIA7A 
S1A7B 
$1A7C 
$1A7D 
$1A83 


$1¢00 
S1IED3 
SIESC 
$1€60 
SIEDC 
S$IEEA 
$1E83 
$1E47 
SIEF8 
$1F51 


1981 
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0069: 
0070: 
0071: 
OQO072: 
0073: 
0074: 
0075: 
0076: 
0077: 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: 
0087: 
0088: 
0089: 
0090: 
0091: 
0092: 
0093: 
0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
0100: 
0101: 
0102: 
0103: 
0104: 
0105: 
0106: 
0107: 
0108: 
07109: 
0110: 
01141: 
0112: 
O1173:% 
0114: 
OT1S: 
0116: 
O17 5 
0118: 
0119: 
0120: 
0121: 
0122: 
O123: 
0124: 
0125; 
0126: 
O12?7: 
0128: 
0129: 
0130: 
0131: 
Uses 
O13535< 
0134; 
0135: 
0136: 
0137: 
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14F8 
14F8 
14F8 
14F8 
T4F8 
14F8 
14F8 
14F8 
14F8 


1458 


14F8 
T4FA 
14FD 


1500 
1503 
1505 
1508 
150B 
1500 
1510 
1512 
1513 
1515 
1547 
TSTA 
151¢ 
1517E 
1520 
1523 
1525 
1528 
152A 
152Dd 
152F 
1531 


1350 
1535 
1538 
153A 


153D 
153F 
1542 
1544 


A9 
8D 
4¢ 


A9 
8D 
A9 
8D 


AO 
2Q 
A? 
9A 


1E 
83 
51 


68 
00 
3E 


ES 
63 
Ez 


01 
£8 
64 
E3 
00 
E9 


E4 
66 
E5 
(7 


00 
£6 


30 
7C 


7D 


2& 


FF 


1A 
1F 


12 


17 
13 


TA 


1A 


1A 


TE 


1A 


1A 


17 


kkKKKKKKEKKKKKKKKK 


SUBROUTINES IN PM 
kk KKK KR KK RR KR 


INPAR 
RECCHA 
PRCHA 
PRBYT 
PRSP 
ASHETT 
CRLF 
RESIN 
RESTTY 


STEP 


IOCORR: 


+ * + eH he HE H HF 


* 


$1387 
SIZAE 
$1334 
$128F 
S11F3 
SI41E 
$11E8 
$1268 
$14BC 


SI4CF 


ADAPTS THE PBDD TO THE VERSION D SITUATION, 
PRIOR TO ASSEMBLING 


IOCORR LDAIM $1E 


EDITC: 


EDITC 


BRK: 


CATION OF 


BRK 


EDITW: 


EOITW 


THE CENTRAL LABEL 


STA 
JMP 


PBDD 
ASSEMB 


PBO IS INPUT 
ASSEMBLE THE PRCGRAM 


COLD START ENTRY OF PME 


JSR 
LOYIM 
JSR 
JSR 
BMI 
LDA 
STAZ 
CLC 
ADCIM 
STAZ 
LDA 
STAZ 
ADCIM 
STAZ 
LDA 
STAZ 
LDA 
STAZ 
JSR 
LDOAIM 
LOYI™ 
STAILY 


LDAIM 
STA 
LDAIM 
STA 


RESIN 
$00 
MESSA 
INPAR 
EDITC 
PARAL 
BEGADL 


$01 
CENDL 
PARAH 
BEGADH 
$00 
CENDH 
PARBL 
ENDADL 
PARBH 
ENDADH 
BEGIN 
$77 
$00 
CURADL 


WARM START ENTRY OF PME, 
THE BRK JUMP VECTOR 


$30 
BRKTL 
$15 
BRKTH 


RESET INPUT BUFFERS 


"BEGAD,ENDAD:" 
GET PARAMETERS 
TRY IT AGAIN, 
LOAD BEGADL 


IF NOT DONE PROPERLY 


CENDL = BEGADL+1 
LOAD BEGADH 
CENDH = BEGADH+t+AARRY 


LOAD ENDAD 


LOAD ENDADH 

PRINT POINTER CURAD 

EQUALS BEGAD 

EOF 77 ON FIRST ADDRESS BEGAD 


INCLUDING THE SPECIFI- 


MAY BE USED AS A WARM START ENTRY OF PME 
PROVIDED THE ®8RK JUMP VECTOR HAS BEEN SPECIFIED 
BEFOREHAND. 


LDOYIM 
JSR 
LDXIM 
TXS 


$24 
MESSA 
SFF 


"WARM" 


"PM EDITOR" 
RESET STACK POINTER 


OF PME STARTS STARTS 


WITH THE K-KEY ROUTINE 


0138: 
0139: 
0140: 
0141: 
0142: 
0143: 
0144: 
0145: 
0146: 
0147: 
0148: 
G1493 
OT50 
0151: 
0152: 
0153: 
0154: 
0155: 
0156: 
0157: 
0158: 
0159: 
0160: 
0161: 
0162: 
0163: 
0164: 
0165: 
0166: 
0167: 
0168: 
0169: 
0170: 
0171: 
0172: 
O173: 
0174: 
0175 
0176: 
0177: 
0178: 
0179: 
0180: 
O16Ts 
0182: 
0183: 
0184: 
0185: 
0186: 
0187: 
0188: 
0189: 
0190: 
0191: 
0192: 
0193: 
0194: 
0195: 
0196: 
0197: 
0198: 
0199: 
0200: 
0201: 
0202: 
0203: 
O0204: 
0205: 
0206: 


1545 
1548 
154B 
154D 
154F 
1552 
1555 


1558 
155A 
155C€ 
1S5F 
1562 
1565 
1567 
1569 
156C 


156€ 
1570 
1572 
1575 
1577 
1379 
157B 
1579 
1580 
1582 
1585 
1587 
158A 
158¢ 
158E 
1590 
1592 


1594 
1596 
1598 
1598 
159D 
15A0 
1SA2 
15A5 
T5A7 
TSAY 
T5AB 
1SAD 
15AF 
15B1 
1582 
15B4 
15B6 


20 
20 
C9? 
DO 
20 
20 
4c 


cy 
DO 
20 
20 
20 
30 
AO 


FO 


C9 
DO 
20 
30 
10 
C9 
dO 
2Q 
30 
20 
90 
20 
FO 
AO 
DO 
AQ 
he) 


4C 
12 
D3 
0B 
F8 
F8 
1F 
3E 
D7 


20 
O07 
F8 
CE 


49 
Ack. 
C9 
OA 
F6 
09 
47 
B9 
OE 
DY 
1A 
d5 


23 


C9 
EF 
D3 
FB 
60 
00 
E6 
FB 
20 
F6 
12 


E6 
15 


NN 


TE 
LE 
15 


TE 


1E 


ef 


1€ 


16 
LE 


TE 


("DELETE") 


WARM JSR PRINS PRINT CURRENT INSTRUCTION 
JSR RECCHA WAIT FOR A DEPRESSED KEY 


CMPIM 'K IS IT THE K-KEY? 
BNE LIST CONTINUE IF NOT 
JSR UP ADAPT WORKSPACE 


JSR RECEND ADAPT CURRENT END ADDRESS POINTER 
JMP WARM READY 
LABEL LIST: L-KEY ROUTINE 


EIST CMPIM 'L L~KEY DEPRESSED? 
BNE SKIP IF NOT CONTINUE 
JSR BEGIN START AT BEGAD 


LST JSR PRINS PRINT CURRENT INSTRUCTION 
JSR NEXT ADAPT INSTRUCTION POINTER 
BMI LST 


DONE LDYIM $1F 
MESS JSR MESSA PRINT "DONE" 
BE WARM READY 


LABEL SKIP; SPACE BAR KEY ROUTINE 
LABEL INSERT: I-KEY ROUTINE 


SKIP CMPIM ! SPACE BAR DEPRESSED? 

BNE INSERT CONTINUE IF NOT 

JSR NEXT ADAPT INSTRUCTION POINTER 

BMI WARM READY 

BPL DONE PRINT "DONE" IF NO FURTHER INSTR. AVAILABLE 
INSERT CMPIM ‘I I-KEY DEPRESSED? 

BNE SEARCH IF NOT CONTINUE 

JSR READIN READ NEW INSTRUCTION 

BMI ILLKEY PRINT "ILLEGAL KEY" IF NEW ISTR. ISN'T VALID 
MEM JSR CHECK 

BCC FULL PRINT "FULL" IF MEMORY IS FULL 

JSR FILLWS LOAD NEW INSTR. IN MEMORY 

BEQ WARM READY 
ILLKEY LDYIM SOE 

BNE MESS PRINT "ILLEGAL KEY” 
FULL LDYIM SIA 

BNE MESS PRINT "FULL" 


LABEL SEARCH: S-KEY ROUTINE 
ANY BYTE PATTERN CINSTRUCTION) MAY BE SEARCHED FOR. 
IF THE INSTRUCTION SEARCHED FOR IS FOUND, 
ONE MAY SEARCH FOR THE SAME INSTRUCTION ON A HIGHER 
ADDRESS, BY PRESSING THE KEY "“Y", THE SEARCHING PRO- 
CESS ALWAYS HAS TO BE CONCLUDED BY THE MESSAGE "DONE". 
THIS OCCURS EITHER BECAUSE ALL OR NO INSTRUCTIONS ARE 
FOUND, OR BY PRESSING AN ARBITRARY SOFTWARE-KEY (I.E. 
A KEY GENERATING AN ASCII CODE WHEN DEPRESSED), 
WITH THE EXEPTION OF THE 'Y'-KEY. 
SEARCH CMPIM 'S S7“KEY DEPRESSED? 
BNE BACK IF NOT CONTINUE 
JSR READIN READ INSTR. TO BE SEARCHED FOR 
BMI ILLKEY “ILLEGAL KEY" IF NOT PROPERLY DONE 
JSR BEGIN START AT BEGAD 
SCAN LDAZ POINTH GET OPCODE OF SEARCH INSTR. 
JSR LENACC GET LENGTH OF SEARCH INSTR. 
LOYIM $00 
LDAIY CURADL GET OPCODE OF THE CURRENT INSTR. 
CMPZ POINTH COMPARE IT AGAINST OPCODE OF THE SEARCH INST. 
BNE AGAIN IF NO MATCH THEN NEXT INSTR. 


DECZ BYTES 
BEQ FOUND CONTINUE, IF INSTR. LENGTH IS 2 OR 3 
INY 


LDAIY CURADL GET NEXT BYTE IN MEMORY 
CMPZ POINTL COMP. IT AGAINST 1ST OPERAND BYTE 
BNE AGAIN IF NO MATCH NEXT INSTR. 
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Ooo 
NM 
Lal ON 
wf 
o 48 


oS 
N 
+> 
an 
-* 


oO 
MN 
7a) 
~J 
oe 


Oo 
No 
ON 
CO 
ee 


15B8 
TSBA 
15BC 
15BD 
15 BF 
1S1 
15¢3 
15€6 
15C9 
15CB 
15¢D 
1500 
1503 
15D5 


15D8 
1SDA 
LoD 
VSDE 
15E0 
15£2 
T5E4 
15E6 
1S5E8 
TSEA 
TSEC 
1SEE 
1SFOQ 
15F2 
15F4 
15F? 
1SFA 
IRE 
AS FE 
1600 
1602 
1604 
1606 
1609 


160C 
160E 
1610 
1613 
1616 
1618 
161A 
161C 
161E 
1621 
1624 
1626 
1628 
162A 
O66 
162E 
1630 
1633 


1636 
1638 
163A 


C6 
FQ 
C8 
B1 
C5 
d0 
20 
20 
cy 
DO 
29 
20 
30 
4c 


CF 
bi) 
A5 
85 
A5 


C3 
DO 
A5 
Go 


FQ 
AO 
B1 
20 
20 
A5 
C5 
DO 
A5 


DO 
20 
4¢ 


C9 
DO 
20 
4C 
C9 
DO 
A9 
85 
20 
20 
C6 
FO 
AO 
B1 
C9 
FQ 
20 
4¢ 


C9 


A? 


Fé 
07 


E6 


DA 
08 
AE 
ay 
08 
F8 
CB 
67 


54 
06 
D3 
45 
50 
1¢ 
OF 
F? 
SC 
F8 
F7 


00 
E6 
7? 
E3 


1E 


28 


47 


17 
12 


~a- = 
am 


16 
15 


1€ 
15 


1E 


Ae 


DECZ 
BEQ 
INY 
LDAILY 
CMPZ 
BNE 
JSR 
JSR 
CMPIM 
BNE 
JSR 
JSR 
BMI 
JMP 


FOUND 


AGAIN 


DNE 
LABEL BACK: 
BACK CMPIM 
BNE 
LDAZ 
eae 
LDAZ 
STAZ 
CMPZ 
BNE 
LDAZ 
CMPZ 
BNE 
BEQ 
LOYIM 
LDALY 
JSR 
JSR 
LDAZ 
CMPZ 
BNE 
LDAZ 
CMPZ 
BNE 
JSR 
JMP 


BCKA 


BCKB 


LABEL TOF: 
LABEL SXTEEN: 
TOF CMPIM 
BNE 
JSR 
JMP 
CMPIM 
BNE 
LDAIM 
STAZ 
JSR 
JSR 
DECZ 
BEQ 
LDYIM 
LDAILY 
CMPIM 
BEQ 


TOFEND 
SXTEEN 


LINES 


J MP 
LABEL ASMBLR: 


BYTES 
FOUND 


CURADL 
INH 
AGAIN 
PRINS 
RECCHA 
ey 

DNE 
OPLEN 
NEXT 
SCAN 
DONE 


2 

TUE 
BEGADL 
TABLEL 
BEGADH 
TABLEH 
CURADH 
BCKA 
BEGADL 
CURADL 
BCKA 
BCKB 
$00 
TABLEL 
LENACC 
INCTAB 
CURADL 
TABLEL 
BCKA 
CURADH 
TABLEH 
BCKA 
DECURA 
WARM 


P=KE.Y 


ai 
SXTEEN 
BEGIN 
WARM 
‘P 
ASMBLR 
SOF 
COUNT 
OPLEN 
NEXT 
COUNT 
TOFEND 
$00 
CURADL 
$77 
TOFEND 


X-KEY 


CONTINUE IF LENGTH OF CURR. INSTR. IS 3 
GET NEXT BYTE IN MEMORY 

COMP. IT AGAINST 2ND OPERAND BYTE 

IF NO MATCH NEXT INSTR. 

PRINT OUT THE SPECIFIED INSTRUCTION 
WAIT FOR A DEPRESSED KEY 

Y-KEY DEPRESSED? 

IF NOT PRINT “DONE” 

GET LENGTH OF THE CURR. INSTR. 

ADAPT INSTR. POINTER 

CONTINUE SEARCH IF STILL INSTR. AVAILABLE 


ELSE PRINT "DONE" 


Z-KEY ROUTINE 


Z=KEY DEPRESSED? 
IF NOT CONTINUE 


TABLE:=BEGAD 
TABLEH:=CURADH? 
IF NOT INCREASE TABLE 


TABLEL:=CURADL? 
IF NOT INCREASE TABLE 
ELSE PRINT FIRST INSTRUCTION 


GET LENGTH OF INSTR. AT 
WHICH POINT IS POINTED 
INCREASE POINT BY BYTES 


TABLEL:=CURADL? 
IF NOT INCREASE TABLE 


TABLEH:=CURADH 
IF NOT INCREASE TABLE 
DECREASE INSTRUCTION POINTER BY BYTES 


T-KEY ROUTINE 


ROUTINE 


T-KEY DEPRESSED? 
IF NOT CONTINUE 
INSTR. POINTER = 
READY 

P-KEY DEPRESSED? 
IF NOT CONTINUE 
45 INSTR. TO BE PRINTED 


BEGAD 


GET LENGTH OF CURRENT INSTR. 
ADAPT INSTR. POINTER 


READY IF 15 INSTR. HAVE BEEN PRINTED 


READY IF OPCODE IS 7? 
PRINT INSTRUCTION 
NEXT INSTRUCTION 
ROUTINE 


LABEL ASSEND: RESTORE I/0 AFTER ASSEMBLING 


ASMBLR CMPIM 
BNE 


"xX 
INPUT 


X-KEY DEPRESSED? 
IF NOT CONTINUE 


LDAIM ASSEND SPECIFY NMI JUMP VECTOR 


0276: 163C 8D 7A 1A STA NMIL 


0277: 163F AY 16 LDAIM ASSEND /256 

0278: 1641 8D 7B 1A STA NMIH 

0279: 1644 4€ FB 14 JMP IOCORR PREPARE 1/0 PRIOR TO ASSEMBLING 
0280: 1647 20 BC 14 ASSEND JSR RESTTY RESTORE 1/0: PM SITUATION 
0281: 164A 4C 88 17 JMP LABLST LIST THE HEXADECIMAL LABELS 
0282: 

0283: LABEL INPUT: I-KEY ROUTINE 

O284: NOTE: NO NON-NUMERICAL KEY HAS TO BE DEPRESSED 
0285: PME AUTOMATICALLY ASSUMES THE INPUT KEY FUNCTION 
0286: HAS BEEN OPTED FOR AS SOON AS THE DATA BELONGING 
0287: TO THE NEW INSTR. HAS BEER SPECIFIED 

0288: 

0289: 164D 20 B1 16 INPUT JSR BYT GET THE 2ND NIBBLE OF THE 1ST BYTE 
0290: 1650 30 12 BMI WRONG 

0291: 1652 20 CE 16 JSR READ GET THE OTHER BYTE(S) 

0292: 1655 30 OD BMI WRONG 

0293: 1657 20 5¢€ TE JSR OPLEN GET LENGTH OF THE CURRRENT INSTR. 
0294: 165A 20 F8 IE JSR NEXT ADAPT INSTR. POINTER 

6295: 1650 AS FD LDAZ TEMPX GET LENGTH OF NEW INSTR. 
0296: 165F 85 F6 STAZ BYTES AND STORE IT IN BYTES 

0297: 1661 4¢€ 82 15 JMP MEM LOAD MEMORY WITH NEW INSTRUCTION 
0298: 1664 4€ 8C 15 WRONG JMP ILLKEY PRINT "ILLEGAL KEY" 

0299: 

0300: END OF THE PME MAIN ROUTINE 

US0 12 

0302: 

0303: 

0304: SEMI WARM START C"LUKE WARM") ENTRY OF PME 

0305: FOLLOWING THE SPECIFICATION BY THE USER 

0306: OF BEGAD AND ENDAD THE INSTRUCTION POINTER 

0307: CURAD IS POINTED AT BEGAD AND THE CURRENT 

0308: END ADDRESS POINTER CEND IS POINTED AT ENDAD. 
0309: AFTER THIS PME IS ENTERED BY THE WARM START ENTRY 
0310: 

O3117:3 

0312: 1667 20 68 12 SEMIW JSR RESIN RESET INPUT BUFFERS 

0313: 166A AD OO LDOYIM $00 

0314: 166€ 20 3E 17 JSR MESSA "“BEGAD,ENDAD:" 

0315: 166F 20 87 13 JSR INPAR GET BEGAD AND ENDAD 

0316: 1672 30 F3 BMI SEMIW TRY IT AGAIN IF NOT DONE PROPERLY 
0317: 1674 AD 63 1A LDA PARAL 

0318: 1677 85 E2 STAZ BEGADL 

0319: 1679 AD 64 1A LDA PARAH 

0320: 167C 85 E53 STAZ BEGADH 

0321: 167E AD 65 1A LDA PARBL 

0322: 1681 85 E4 STAZ ENDABL 

0323: 1683 85 E8 STAZ CENDL 

0324: 1685 AD 66 1A LDA PARBH 

0325: 1688 85 E5 STAZ ENDADH 

0326: 168A 85 EO STAZ CENDH CEND = ENDAD 

0327: 168C 20 D3 TE JSR BEGIN CURAD = BEGAD 

0328: 168F 4¢ 33 15 JMP BRK JUMP TO WARM START 

0329: 

0330: 

O33 1s 

0332: KEKE KKKEKRKKEKK KK KKK K 

G3335¢ SUBROUTINES OF PME 

0334: kaeKK KKK KM KKK KEKE 

9335: 

03364: 

OS3-7¢ DECURA 

03358: THE INSTRUCTION POINTER IS DECREASED BY THE 
0339: NUMBER OF BYTES - BEING THE LENGTH OF THE 

0340: INSTRUCTION ~- WHICH PRECEEDS THE CURRENT 

0341: INSTRUCTION IN MEMORY. 

0342: 

0343: 1692 38 DECURA SEC 

0344: 1693 AS £6 LDAZ CURADL 
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0345: 
0346: 
0347: 
0348: 
0349: 
0350: 
0351: 
0352: 
O3535% 
O354: 
0355: 
0356: 
035 /% 
0358: 
0359: 
0360; 
0361: 
0362: 
0363: 
0364: 
0365: 
0366: 
0367; 
0368: 
0369: 
0370: 
0371: 
0372: 
0373: 
0374: 
G3755 
0376: 
OS72: 
0378: 
0379: 
0380: 
0381: 
0382: 
0383: 
0384: 
0385: 
0386: 
0387: 
0388: 
0389: 
0390: 
0391: 
0392: 
0393: 
9394: 
0395: 
0396: 
0397; 
0398: 
0399: 
0400: 
0401: 
0402: 
0403: 
0404: 
0405: 
0406: 
0407: 
0408: 
0409: 
0410: 
0441: 
0412: 
0413: 
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1695 
1697 
1699 
1698 
169D 
TO9F 


16A0 
16A1 
16A3 
16A5 
16A7 
16A9 
16AB 
16AD 


16AE 
16B1 
16B4 
16B6 
1687 
16B8 
16B9 
1T6BA 
16BC 
16BF 
16C2 
16C4 
16C6 
16C8 


16C9 
16CC 
16CE 
1600 
1603 
1605 
1607 
16D9 
1608 
T6DE 


16E1 


16E3 
16E5 
16E? 
16E9 
16EC 
16EF 
16F1 


18 
A5 


85 
A5 
69 
85 
60 


20 
20 
30 


OA 
OA 
OA 
85 
20 
20 
30 
05 
A2 
60 


20 
30 
85 
20 
84 
84 
cé 
FO 
20 
20 
30 
85 
C6 
FO 
20 
20 
30 
85 


F6 
E6 
ET 
00 
E? 


EC 
FS 
EC 
ED 
00 
ED 


AE 
+E 
12 


FE 
AE 
1£ 
04 
FE 
00 


12 
14 


12 
14 


16 


Te 


SBCZ BYTES 
STAZ CURADL CURADL:=CURADL-BYTES 
LDAZ CURADH 


SBCIM $00 
STAZ CURADH CURADH:=CURADH-BORROW 
RTS 


SUBROUTINR INCTAB 
INCRESES THE POINTER TABLE BY THE AMOUNT DETERMINED 
BY THE CONTENTS OF BYTES (INSTRUCTION LENGTH) 


INCTAB CLC 
LDAZ TABLEL 
ADCZ BYTES 
STAZ TABLEL TABLE:=TABLE + BYTES 
LDAZ TABLEH 


ADCIM $00 
STAZ TABLEH 
RTS 


THE SUBROUTINE BYTIN LOADS THE ACCU WITH 
WITH DATA WHICH BELONGS TO TWO NUMERICAL KEYS 
DEPRESSED. RETURNING FROM SUBROUTINE N=1 AND 
2=0 IF A NON-NUMERICAL KEY WAS DEPRESSED. TWO 
SUCCESIVELY DEPRESSED NUMERICAL KEYS WILL 
RESULT INTO N=O AND 2=71 


BYTIN JSR RECCHA WAIT FOR A DEPRESSED KEY 


BYT JSR ASHETT CONVERT IT TO A DATA NIBBLE 
BMI RETURN ERROR EXIT IF KEY <> O...F 
ASLA ENTERED DATA IS NEW HIGHER DATA NIBBLE 
ASLA 
ASLA 
ASLA 


STAZ NIBBLE SAVE HIGHER DATA NIBBLE 

JSR RECCHA WAIT FOR A DEPRESSED KEY 

JSR ASHETT CONVERT IT TO A DATA NIBBLE 

BMI RETURN ERROR EXIT IF KEY <> O...F 

ORAZ NIBBLE ISERT NEW LOWER DATA NIBBLE 

LDXIM $00 RESET N-FLAG, SET Z-FLAG 
RETURN RTS 


THE SUBROUTINE READIN LOADS EITHER ONE, 
TWO OR THREE DATA BUFFERS DEPENDING 

OF THE INSTRUCTION LENGTH SPECIFIED BY 
THE OPCODE. 


NORMAL EXIT: 2 
ERROR EXIT: Z= 


READIN JSR BYTIN WAIT FOR OPCODE 
BMI ROB ERROR IF KEY <> QO...F 
READ STAZ POINTH STORE OPCODE IN POINTH 
JSR LENACC GET INSTRUCTION LENGTH 
STYZ COUNT AND COPY IT INTO COUNT 
STYZ TEMPX AS WELL AS IN TEMPX 
DECZ COUNT 
BEQ RDA RETURN IF ONE BYTE INSTR. 
JSR PRSP PRINT A SPACE 
JSR BYTIN WAIT FOR (1ST) OPERAND 
BMI RDB ERROR IF KEY <> 0...F 
STAZ POINTL STORE (1ST) OPERND IN POINTL 
DECZ COUNT 
BEQ RDA RETURN IF TWO BYTE INSTR. 
JSR PRSP PRINT A SPACE 
JSR BYTIN WAIT FOR 2ND OPERAND 
BMI RDB ERROR IF KEY <> 0O...F 
STAZ INH STORE 2ND OPERAND IN INH 


0414: 
0415: 
0416: 
0417: 
0418: 
0419: 
0420: 
0421: 
0422: 
0423: 
0424: 
0425: 
0426: 
0427: 
0428: 
0429: 
0430: 
0431: 
0432: 
0433: 
0434: 
0435: 
0436: 
0437: 
0438: 
0439: 
0440: 
0441: 
0442: 
0443: 
0444: 
0445: 
0446: 
0447: 
0448: 
0449: 
0450: 
O45 1% 
0452: 
0453: 
0454: 
0455: 
0456: 
0457: 
0458: 
0459: 
0460: 
0461: 
0462: 
0463: 
0464: 
0465: 
0466: 
0467: 
0468: 
0469: 
0470: 
0471: 
047e: 
0473: 
0474: 
0475: 
0476: 
0477: 
0478: 
0479: 
0480: 
0481: 
0482: 


16F3 A2 00 


16F5 


16F6 
16F9 
16FA 
16FC 
16FE 
1700 
1702 
1704 
1706 
1709 
170A 


1708 
170E 
1711 
17143 
1715 
1718 
T71A 
1710 
171F 
1721 
1723 
1726 
1728 
172B 
172C 
172E 
1730 
1732 
1733 
1734 
1736 
1739 
1738 
1730 


173E 
1741 
1744 
1746 
1748 
1748 


60 


20 
38 
A5 
E9 
Eo 
A5 
E5 
90 
20 
38 
60 


20 


C9 
FO 
20 
C8 


DC 


E4 
02 


E8 


E9 
04 
EA 


E8 
50 
03 
07 
34 


1E 


1E 


1] 
1E 


ze 


12 


11 


ie 


14 


~~ — 
~ — 


13 


RDA 


RDB RTS 


LDXIM $00 


Z=1, N=0 


THE SUBROUTINE CHECK VERIFIES IF THERE IS STILL 
ROOM IN THE WORKSPACE AREA FOR A NEW INSTRUCTION. 
THE WORKSPACE IS LIMITED BY BEGAD AND ENDAD. 
CHECK RETURNS WITH: 
C=0 IF THERE IS NO ROOM FOR THE INSTR. 

C=1 IF THERE IS ROOM FOR THE NEW INSTRUCTION 


CHECK JSR 
SEC 
LDAZ 
SBCIM 
SBCZ 
LDAZ 
SBCZ 
BCC 
JSR 
SEC 
CHKEND RTS 


ADCEND 


ENDADL 
$02 
CENDL 
ENDADH 
CENDH 
CHKEND 
RECEND 


ADJUST CURRENT ENDADDRESS POINTER 


CARRY DETERMINED BY ENDAD-2-CEND 


EXIT IF NO ROOM ANYMORE 
READJUST CURRENT END ADDRESS POINTER 


THE SUBROUTINE PRINS PRINTS AN INSTRUCTION 
SPECIFIED BY THE INSTRUCTION POINTER CURAD. 
THE CONTENTS OF THE INSTRUCTION POINTER IS ALSO 


PRINTED. 


BY PRINTING A CERTAIN NUMBER OF SPACES 


THE POSITION OF THE CARRIAGE IS IDENTICAL TO THE 
FIRST POSITION OF THE SYSTEM COMMAND COLUMN. 


PRINS JSR 
JSR 
LDXZ 
LDAZ 
JSR 
LDAZ 
JSR 
LDAIM 
STAZ 
LOYIM 
JSR 
LDBDALY 
JSR 
SEC 
LDAZ 
SBCIM 
STAZ 
INY 
DEX 
BNE 
JSR 
DECZ 
BNE 
RTS 


PRT 


SP 


CRLF 
OPLEN 
BYTES 
CURADH 
PRBYT 
CURADL 
PRBYT 
SOF 
LABELS 
$00 
PRSP 
CURADL 
PRBYT 


LABELS 
$03 
LABELS 


PRT 
PRSP 
LABELS 
SP 


PRINT A NEW LINE 
GET LENGTH OF INSTRUCTION 
TO BE PRINTED 


PRINT HIGHER ADDRESS BYTE 
PRINT LOWER ADDRESS BYTE 
MAXIMUM NUMBER OF SPACES 
PRINT A SPACE 


GET BYTE TO BE 
AND PRINT [Ff 


PRINTED 


DECREASE NUMBER OF SPACES 
TO BE PRINTED 

BY 3 

SET UP FOR NEXT BYTE 

TO BE PRINTED 

IF THERE IS ANYONE 

PRINT A NUMBER OF SPACES 


RETURN 


THE SUBROUTINE MESSA IS IDENTICAL WITH THE 


PM SUBROUTINE MESSY, 


LOOKUP TABLE 


MESSA 
MA 


JSR 
LDAY 
CMPIM 
BEQ 
JSR 
INY 


CRLF 
TXT 
$03 
TXTEND 
PRCHA 


EXEPT FOR A DIFFERENT 


PRINT A NEW LINE 

GET CHARACTER TO BE PRINTED 
EQT CHARACTER? 

IF YES RETURN 

PRINT A CHARACTER 

SET UP FOR NEXT CHARACTER 
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0483: 
0484: 
0485: 
0486: 
0487: 
0488: 
0489: 
0490: 
0491: 
0492: 
0493: 
0494; 
0495: 
0496: 
0497: 
0498: 
0499: 
0500: 
0501: 
0502: 
0503: 
0504: 
0505: 
0506: 
0507: 
0508: 
0509: 
0510: 
0511: 
Os t2% 
0513: 
0514: 
0515: 
0516: 
0517: 
0518: 
0519: 
0520: 
0521: 
0522: 
0523: 
0524: 
0525: 
0526: 
0527: 
0528: 
0529: 
0530: 
O531: 
0532: 
0533" 
0534: 
0535: 
0536: 
0537: 
0538: 
0539: 
0540: 
0541: 
0542: 
0543: 
0544: 
0545: 
0546: 
O547: 
0548: 
0549: 
0550: 
0551: 
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174C 
174F 


1750 
1751 
toe 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
V75A 
175B 
Tt 
1750 
TIE 
175F 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
176A 


176B 


1.76€ 
176D 
176E 
176F 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
177A 
177B 
177C¢ 
177d 
177E 
177F 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 


1788 


40 41 17 
60 


AO FF 


JMP MA 
TXTEND RTS READY 
LOOKUP TABLE TXT 


TXT ¥=00 


vzmsy Vr OmgD 


Uo > 


ee | Y=0E 


Wok haa 


"S$ 
$03 


noukw wen & WW HW HW OD tn tk an dao Hn a a tb ne vw ud du 
A 
Oo 
LN 


THE INSTRUCTIONS FOLLOWING THE LABEL LABLST 
DEAL WITH THE PRINTING OF ALL HEXADECIMAL LABELS 
AFTER THE PROGRAM HAS BEEN ASSEMBLED 


LABLST LDYIM SFF 


0552: 
0553: 
0554: 
05553 
0556: 
OSS 7s 
0558: 
O35 59: 
0560: 
0561: 
0562: 
0563: 
05354: 
0565: 
0566: 
O567: 
0568: 
0569: 
O5:70% 
Os? 1: 
05 72% 
G5 7.5% 
0574: 
05752 
0576: 
O577: 
O573: 
0579: 
0580: 
0581: 
0582: 
0583: 
0584: 
0585: 
0586: 
0587: 
0588: 
0589: 
0590: 
0591: 
0592: 
0593: 
0594: 
0595: 
0596: 
0597: 
0598: 
0599: 
0600: 
0601: 
0602: 
0603: 
0604: 
0605: 
0606: 
0607: 
0608: 
0609: 
0610: 
0611: 
0612: 
0613: 
0614: 
0615: 
0616: 
0617: 
0618: 
0619: 
0620: 


178A 
178D 
178F 
1791 
1793 
1796 
1798 
179A 
179D 
T79E 
17A0 
17A2 
17AS 
1?A? 
17A9 
17AC 
17AD 
17AF 
17B2 
1785 
17B6 
17B8 
17BA 
17BB 
17B0 
17BF 
Lice 


17C5 
17C8 
17CA 
17CD 
1700 
1702 
17D5 
1707 
17D9 
17DB 
17D0 
17E0 
17€3 
17E6 
VEC 
17E9 
17EB 
17ED 
1fEF 
17F14 
TES 


20 
A2 
84 
AQ 
20 
A4 
B1 
20 
88 
84 
AQ 
20 
A4 
81 
20 
88 
Bt 
20 
20 


C4 
FO 
CA 
dO 
FO 
20 
4C 


E8 
04 
FD 
2E 
41 
FD 
EC 
8F 


FD 


41 
FD 
et 
BF 


ES 
&F 
F 3 


EE 
05 


D2 
cB 
D3 
30 


11 


17 


TE 
15 


17 
13 


1E 


TE 


Le 


15 


LBLSTA 


LBLSTB 


LBLSTC 


JSR 
LOXIM 
STYZ 
LOYIM 
JSR 
LDOYZ 
LDALY 
JSR 
DEY 
SINE 
LDYIM 
JSR 
LDYZ 
LDALY 
JSR 
DEY 
LDAILY 
JSR 
JSR 
DEY 
CPYZ 
BEQ 
DEX 
BNE 
BEQ 
JSR 
JMP 


CRLF 
$04 
TEMPX 
$2E 

MA 
TEMPX 
TABLEL 
PRBYT 


TFEMPX 
$34 

MA 
TEMPX 
TABLEL 
PRBYT 


TABLEL 
PRBYT 
PRSP 


LABELS 
LBLSTC 


LBLSTB 
LBLSTA 
BEGIN 
EDITW 


PRINT ON A NEW LINE 

4 LABELS ON EACH LINE 
SAVE Y 

"LAB g" 


RESTORE Y 
GET LABEL NUMBER 
PRINT LABEL NUMBER 


SAVE Y 
Mess “ger 


RESIURE. -% 
GET HIGHER ADDRESS BYTE 
AND PRINT IT 


GET LOWER ADDRESS BYTE 

AND PRINT IT 

PRINT A SPACE 

SETUP FOR NEXT LABEL 

ALL LABELS PRINTED 

IF NOT SET UP FOR NEXT LABEL 


ON THE SAME LINE 

OR ON A NEW LINE 

INSTRUCTION POINTER = BEGAD 
WARM START ENTRY OF PME WITHOUT 


BRK JUMP VECTOR SPECIFICATION 


THE WARM CEND ENTRY (LABEL SEACND) OF PME 
RESTORES THE POSITION OF THE CURRENT END 


ADDRESS POINTER CEND, 
OF BEGAD AND ENDAD, 
PSEUDO OPCODE 77, 


BY THE 


USER, 


13 


AFTER SPECIFICATION, 
AND AFTER FINDING A 
THIS “2S 


E. AN EOF CHARACTER. 


FOLLOWED BY A JUMP TO THE WARM START ENTRY OF PME. 


SEACND 


SCNDA 


SCNDB 


JSR 
LOYIM 
JSR 
JSR 
BMI 
JSR 
LBYIM 
LDALY 
CMPIM 
BEQ 
JSR 
JSR 
JMP 
CLC 
LDAZ 
ADCIM 
STAZ 
LDAZ 
ADCIM 
STAZ 
JMP 


RESIN 
$00 
MESSA 
INPAR 
SEACND 
BEGIN 
$00 
CURADL 
$77 
SCNDB 
LENACC 
NEXT 
SCNDA 


CURADL 
$01 
CENDL 
CURADH 
$00 
CENDH 
BRK 


RESET INPUT BUFFERS 


"BEGAD,ENDAD" 

GET BEGAD AND ENDAD 

TRY IT AGAIN IF NOT PROPERLY DONE 
INSTR. POINTER=BEGAD 


GET CURRENT OPCODE 

ES IT OPCODE 777? 

IF NOT CONTINUE 

GET CURRENT INSTR. LENGTH 
ADJUST INSTR. POINTER 

AND CHECK AGAIN FOR OPCODE 77 


CENDL:=CURADL+1 


CENDH:=CURADH+CARRY 
WARM START ENTRY OF PME 


THE INSTRUCTIONS FOLLOWING THE LABEL BINAR 


AND THE INSTRUCTIONS FOLLOWING THE LABEL 
AN EXTENSION OF THE STANDARD MONITOR AND 
IN CASE OF SINGLE STEPPING 
AN USER PROGRAM WITH DECIMAL ARITHMETIC, 
WILL BE A TEMPORARY SWITCH BACK ON BINARY 


RESPECTIVELY. 


PMBINA ARE 
OF PM 
THROUGH 
THERE 
ARITHMETIC 


PROVIDED THE NMI JUMP VECTOR HAS BEEN SPECIFIED 
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0621: ON 17F6 OR 17FA RESPECTIVELY. 


0622: 

0623: 

0624: 17F6 DB BINAR CLD BINARY ARITHMETIC 

0625: 47F7 4¢€ O00 1C JMP SAVE SAVE INPUT PROPER 

0626: 17FA D8 PMBINA CLD BINARY ARITHMETIC 

0627: 17FB 4C CF 74 JMP STEP SAVE INPUT PROPER 

0628: 

0629; 

0630: kkkkkkee END OF THE PME PROGRAM **xxkxx 

0631: 

0632: 

0633: VICINUS ELABORABAT PROGRAMMAM XXV VI MCMLXXXI 

0634: VIR NOCTIS IMPOSIT PROGRMMAM IN MACHINAM 

0635: 

ID= 

-T 
SYMBOL TABLE 3000 3276 
ADCENL 1EDC AGAINH 15CD ASHET\ 141E ASMBLZ 1636 
ASSEMJ 4F51 ASSEND 1647 BACK 15D8 BCKA 15F0 
BCKB 1609 BEGADH OO0E3 BEGADL OOE2 BEGINH 1ED3 
BINAR 17F6 BRKTHH 1A7D BRKTLH 1A7C BRK 1533 
BYTESH OOF6 BYTIN 16AE BYT 16B1 CENDHH QOE9 
CENDLH GOE8 CHECK 16F6 CHKEND 170A COUNT OOF? 
CRLFE 411E8 CURADH QOE? CURADL QOE6 DECURA 1692 
DNE 1505 DONE 4567 EDITC 1500 EDITW 4153D 
ENDADH OOES5 ENDADL OOE4 FILLWS 1647 FOUND 15¢3 
FULL 1590 ILLKEY 158C INCTAB 16A0 INH OOF9 
INPAR 1387 INPUT 164D INSERT 1579 IOCORR 14F8 
LABELS QOEE LABLST 1788 LBLSTA 478A LBLSTB 178F 
LBLSTC 178F LENACC 1€60 LINES 16TE LIST 1558 
LST LSOF MA 1741 MEM 1582 MESS 1569 
MESSA 173E NEXT 1EFS8 NIBBLE OOFE NMIH 1A7B 
NMIL 1A7A OPLEN 1E5C PARAH 1A64 PARAL 1A63 
PARBH 1A66 PARBL 1A65 PBDD 1A83 PMBINA 17FA 
POINTH OOF® POINTL OOFA PRBYT 128F PRCHA 1334 
PRINS 1708 PRSP 11F3 PRT 1723 RDA 16F3 
RDB 16F5 READ T6CE READIN 16C9 RECCHA 12AE 
RECEND i1EEA RESIN 1268 RESTTY 14BC RETURN 16C8 
SAVE 1¢00 SCAN 15A0 SCNDA 1705 SCNDB 17E6 
SEACND 17C€5 SEARCH 1594 SEMIW 1667 SKIP 156E 
SP 1736 STEP 14CF SXTEEN 1616 TABLEH OOED 
TABLEL QOEC TEMPX OOFD TOFEND 1613 TOF 160C 
TXTEND 174F TXT 1750 UP 1683 WARM 1545 
WRONG 1664 

—— 


7EE4 0636 
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Appendix 2 


The hex dump of the PME system program 


The first section of the PM/PME system program has already been printed 
in hex format in appendix 5 on page 190 of Book 3. The extended version 
from address $14F8...$17F5 belongs to PME. The remainder, from 
$17F6...$17FD, is used by the two routines given in appendix 4. 


@12 3 4 5 6 7 8 9 A B C D €E F 


L4F@: F9 4C A2 13 FF FF FF FF AQ 1E 8D 83 1A 4C 51 IF 
1508: 28 68 12 A®@ 98 20 3E 17 26 87 13 38 F3 AD 63 1A 
1516: 85 E2 18 69 @1 85 E8 AD 64 1A 85 E3 69 68 85 EY 
1528: AD 65 1A 85 E4 AD 66 1A 85 E5 28 D3 LE AY 77 AG 
15386: @@ 91 E6 AY 3D 8D 7C 1A AJ 15 8D 7D 1A AG 24 26 
1549: 3E 17 A2 FF 9A 20 6B 17 26 AE 12 C9 4B DO B89 26 
155@: 83 1E 20 EA 1E 4C 45 15 C9 4C D@ 12 286 D3 1E 286 
1568: 0B 17 26 F8 1E 39 F8 A@ 1F 20 3E 17 F® D7 C9 28 
1578: D@ O67 26 F8 1E 38 CE 1@ EE C9 49 D@ 17 286 C9 16 
1580: 38 GA 26 F6 16 98 B89 29 47 1E F@ BO AG BE DO DI 
1598: AS 1A D® DS C9 53 DG 46 26 C9 16 30 EF 28 D3 IE 
15A8: A5 FB 280 68 1E A® 06 B1 E6 C5 FB DO 28 C6 F6 FB 
15B8: 12 C8 Bl E6 C5 FA D9 15 C6 F6 FB 67 C8 Bl E6 C5 
15C@: F9 D® BA 280 OB 17 28 AE 12 C9 59 DO B68 28 5C IE 
15D@: 20 F8 1E 38 CB 4C 67 15 C9 5A D@ 38 AS E2 85 EC 
15E@: A5 E3 85 ED C5 E7 D@ 88 AS E2 C5 E6 DG G2 FS 19 
15F0: AS 0@ Bl EC 26 68 1E 280 A® 16 AS E6 C5 EC DO FOS 
1688: A5 E7 C5 ED DO EA 286 92 16 4C 45 15 C9 54 DBO 86 
1618: 28 D3 1E 4C 45 15 C9 58 D@ iC AY OF 85 F7 28 5C 
1628: 1E 26 F8 1E C6 F7 FO EB AS 06 Bl E6 C9 77 FO E3 
1636: 20 6B 17 4C 1E 16 C9 58 D#@ 13 AY 47 8D 7A 1A AY 
1648: 16 8D 7B 1A 4C F8 14 26 BC 14 4C 88 17 28 Bi 16 
1658: 38 12 20 CE 16 386 6D 2@ 5C 1E 2@ F8 iE A5 FD 85 
1669: F6 4C 82 15 4C 8C 15 28 68 12 AB B68 26 3E 17 28 
1676: 87 13 38 F3 AD 63 1A 85 E2 AD 64 1A 85 E3 AD 65 
1688: 1A 85 E4 85 E8 AD 66 1A 85 E5 85 EY 28 D3 1E 4C 
1698: 33 15 38 A5 E6 ES F6 85 E6 AS E7 ES OO 85 E7 60 
16A9: 18 A5 EC 65 F6 85 EC A5 ED 69 O68 85 ED 60 28 AE 
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16B86: 
L6C@: 
16D6: 
16E@: 
16F@: 
1760: 
1714: 
1726: 
17306: 
1746: 
1756: 
1760: 
1776: 
1786: 
1798: 
L7A®: 
17B6: 
17C@: 
17D@: 
17E8@: 
L7FO@: 
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3 
14 
94 
84 
85 
A2 


A5 
29 
CA 
17 
4] 
41 
83 


20 
41 
F 3 
3D 
D3 
4c 
4c 


4 
38 


F7 
FA 


88 


E7 
F 3 
Dd 
cg 
44 
4c 
598 
3A 
41 
17 
1i 
15 
1E 
D5 
33 


6 
OA 
A2 
FD 
F7 
20 
20 
8F 
Bl 
29 
FQ 
45 
4B 
20 
24 
A4 
FD 
C4 
68 
BO 
18 
D8 


7 
OA 
8d 
C6 
FQ 
DC 
EA 
12 
E6 
F 3 
07 
4E 
45 
45 
G3 
FD 
Bl 
EE 
12 
Bl 
A5 
4c 


8 


9 A B CC D E F 


20 
36 
F 3 
20 
E9 
E8 
12 
A5 
F9 
4c 
20 
4c 
52 
1i 
12 
88 
D2 
17 
89 
E8 
CF 


AE 
27 
li 
AE 
G2 
1i 
A9 
EE 
69 
41 
83 
4c 
G3 
A2 
88 
Bl 
F@ 
26 
26 
A5 
14 


12 
85 
20 
16 
E5 
26 
OF 
E9 
20 
17 
49 
83 
4c 
84 
84 
EC 
CB 
87 
608 
E7 
77 


20 
FB 
AE 
38 
E8 
5C 
85 
G3 
E8 
60 
4c 
44 
4} 
84 
FD 
28 
28 
13 
1E 
69 
77 


Appendix 3 


The complete listings of the Tape Monitor 


and 
Printer Monitor system programs. 


The following pages contain a complete listing of the TM and PM system 
programs. Each book page corresponds to a single assembler page con- 
sisting of 56 lines. 

The listing itself consists of the following: 


The main Tape Monitor routine 

The TM subroutines 

The DUMP/DUMPT subroutine 
Subroutines used by DUMP/DUMPT 
The RDTAPE subroutines 
Subroutines used by RDTAPE 

The main Printer Monitor routine 
The PM subroutines 

The look-up table MESS 

The initialisation routine STEP 

The IBRES subroutine 

A survey of all the labels and their addresses 
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0001: 0800 
0002: 
0003: 
ooo: 
0005: 
0006: 
0007: 
0008: 
0009: 
0010: 
0011: 
0012: 
0013: 
0014: 
0015: 
0016: 
0017: 
0018: 
0019: 
0020: 
0021: 
0022: 
0023: 
0024: 
0025: 
0026: 
0027: 
0028: 
0029: 
0030: 
0031: 
0032: 
0033: 
0034: 
0035: 
0036: 
0037: 
0038: 0800 
0039: 0800 
oo40: 0800 
GO41: 0800 
0042: 
0043: 
OO44: 
OO4S: 
0046: 0800 
0047: 0800 
0048: 0800 
0049: 0800 
0050: 
0051: 
0052: 
0053: 
0054: 0800 
0055: 0800 
0056: 0800 
0057: 0800 
0058: 0800 
0059: 0800 
0060: 0800 
90061: 0800 
0062: 0800 
0063: 0800 
0064: 0800 
0065: 0800 
0066: 0800 
0067: 0800 
0068: 0800 
0069: 0800 
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ORG $0800 SOFTWARE OF JUNIOR COMPUTER 3,4 


SOURCE LISTING OF THE TAPE/PRINTER MONITOR 


WRITTEN BY A. NACHTMANN 


DATE: 17 DEC. 1980 


HMR ERE EEE EEE EERE EE ERE ER HEE ED 


##% DEFINITIONS OF DUMPT & RDTAPE *** 
0b 3k 36 6 6 He He He HEHE He EE EE RR 


DUMPT STORES A PROGRAM ON TAPE 

1) STORE A PROGRAM ON TAPE 

2) ID IS THE IDENTITY NUMBER 

3) SA IS THE START ADDRESS 

4) EA IS THE END ADDRESS + 1 

5) ID = 00 & ID = FF SHOULD NOT BE USED 


RDTAPE READS A PROGRAM FROM TAPE 
1) READ A PROGRAM FROM TAPE WITH A CERTAIN ID 


2) DISCARD DATA IN MEMORY BEGINNING AT SA 
3) ID = 00 & ID = FF ARE SPECIAL IDS 


THE DATA FORMAT ON TAPE IS ASCII: 
255SYN<>#<>1ID<> SAL<> SAH<>DATA<> /<>CHKL<>CHKH<>EOT<>EOT 


I/O DEFINITION 


PAD * $1A80 PORT A DATA REGISTER 
PADD * $1A81 PORT A DATA DIRECTION 
PBD * $1A82 PORT B DATA REGISTER 
PBBD * $1483 PORT B DATA DIRECTION 


TIMER REGISTERS 


CNTA * $1AF4 CLK1T, DISABLE TIMER IRQ 

CNTC * $1AF6 CLK64T, DISABLE TIMER IRQ 

RDFLAG * $1AD5 READ FLAG REGISTER, B7 IS TIMER FLAG 
RDTDIS * $1AD4 READ CONTENTS OF TIMER CELL, IRQ DISABLEI 


TEMPORARY DATA BUFFERS 


SY * $1869 SYN COUNTER 

BYTE # $1A6A BYTE FROM TAPE 

CHAR * $1A6B CHARACTER FROM TAPE 

HIGHER * $1A6C 3600 HZ HALF PERIODE DELAY 
LOWER * ¢1A6D 2400 HZ HALF PERIODE DELAY 
CHKL # $1A6E CHECK SUM LOW 

CHKH * $1A6F CHECK SUM HIGH 

SAL * $1A70 START ADDRESS LOW 

SAH * $1A71 START ADDRESS HIGH 

EAL * $1A72 END ADDRESS LOW + 1 

EAH * $1A73 END ADDRESS HIGH 

SYNCNT * $1A74 

BITS 7 $1A75 AMOUNT OF BITS 

FIRST * $1A76 HALF PERIODE AMOUNT OF 3600 HZ 
SECOND * $1A77 HALF PERIODE AMOUNT OF 2400 HZ 
GANG = $1478 TEMP OF PBD-BITS 


0070: 
0071: 
0072: 
0073: 
0074: 
0075: 
0076: 
OO77: 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
0084: 
9085: 
0086: 
0087: 
0088: 
0089: 
0090: 
0091: 
0092: 
0093: 
0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
0100: 
O1OT: 
01023 
0103: 
0104: 
0105: 
0106: 
0107: 
0108: 
0109: 
0110: 
01171: 
O12: 
west 
0114: 
0115: 
0116: 
0117: 
0118: 
0119: 
0120: 
0121: 
0122: 
0123: 
0124; 
0125: 
0126: 
O12T% 
0128: 
0129: 
0130: 
0131: 
0132: 
0133: 
0134: 
0135: 
0136: 
0137: 
0138: 


0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 


0800 
0800 


0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 


ID * $1479 ID OF THE DUMPT PROGRAM 
NMI * $1A7A NMI VECTOR 


HHKKKAKKKKKEKAAAARARHERRRARRKREHEERREEE 


###® DEFINITIONS OF THE TTY MONITOR ### 
He AG 6 96 0b 90 aE ES HE Ha 


I/O DEFINITION: SEE DUMPT & RDTAPE 


CPU REGISTERS 


PCL * $OOEF PROGRAM COUNTER 
PCH * $00F0 

PREG * $00F1 STATUS REGISTER 
SPUSER * $O0O0F2 USER STACK POINTER 
ACC * $00F3 ACCUMULATOR 

YREG * $O0O0F4 INDEX Y 

XREG * $00F5 INDEX X 


INPUT BUFFERS 

INL * $O0O0F8 LOWER BYTE 
INH * $00F9 UPPER BYTE 
ADDRESS POINTER 

PCINTL * $OOFA 

POINTH * $00FB 


TEMPORARAY DATA BUFFERS 


TEMP # $00FC 
TEMPX *# $00FD 

STPBIT # $1A59 NUMBER OF STOP BITS + 14 
CNTL * $1A5A BIT TIME BUFFER 

CNTH #* $1A5B 

CNTHL #* $1A5C HALF BIT TIME BUFFER 
CNTHH #* $1A5D 

TIML # $1A5E COUNT DOWN BUFFER 
TIMH * $1A5F 

TEMPA * $1A60 TEMPS 

TEMPB * $1A61 

CHA * $1A62 CHARACTER BUFFER 
PARAL *# $1463 PARAMETER BUFFERS 
PARAH * $1A64 

PARBL * $1A65 

PARBH * $1A66 

PRTEMP * $1A67 TTY BUFFER 

BRKT * $1A7C BREAK TEST VECTOR 


HREKRERRRHERRRKARKRKRARKRARKKKKAHKEKEKRHRE 


#*#*# BUFFERS & EXTERNAL ADDRESSES ### 
Se 90 EAE He Se He aE HEE HE HE 


DISCNT * $1A68 DISPLAY COUNTER 
COLDST * $1CB5 EDITOR COLD START 
WARMST * $1CCA EDITOR WARM START 
BEGIN #* $1ED3 EDITOR SUBROUTINE 
RESET * $1C1D RESET OF VERSION D 
GETKEY * $1DF9 COMPUTE THE KEY VALUE 
LDAINH * _$1DA7 PART OF SCAND/SCANDS 
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0139: 0800 BEGADL *® $¢O0E2 BEGIN ADDRESS POINTER 
0140: 0800 BEGADH #* $00E3 
0141: 0800 ENDADL * $OO0E4 END ADDRESS POINTER 
0142: 0800 ENDADH * $00E5 
0143: 0800 CENDL #* $00E8 CURRENT END ADDRESS POINTER 
O144: O800 CENDH #* $O00E9 
0145: , 
0146: KEKE REREERKREL ERR RE RE EE 
O47: #** TAPE MANAGEMENT eR 
0148: RRHEKKHEEEE EEE EEE ERNEE 
0149: 
0150: 
0151: >PC KEY: READ A DATA BLOCK WITH ID=01...FE FROM TAPE 
0152: 1) IF ID = 00, NO SA MAY BE ENTERED 
0153: 2) IF ID = FF, SAH & SAL SHOULD BE ENTERED 
0154: SAD KEY: SAVE A DATA BLOCK FROM SA TO EA-1 ON TAPE 
0155: 1) ENTER ID = OlssnEt 
0156: 2) ENTER SAH & SAL 
0157: 3) ENTER EAH & EAL + 1 
0158: SDA KEY: 1) EDITOR COLD START ENTRY 
0159: 2) FILE IS DEFINED BY BEGH,BEGL & ENDH, ENDL 
3160: ++ KEY: DISPLAY ID-SAH-SAL-EAH-EAL-BEGH~BEGL-ENDH- 
0161: ENDL-ID-SAH... 
0162: >GO KEY: SAVE AN EDITOR FILE BETWEEN BEGAD AND CEND 
0163: ON TAPE; THEN JUMP TO WARM START ENTRY OF 
0164: THE EDITOR AND DISPLAY THE FIRST INSTRUCTION 
0165: 
0166: 
0167: 
0168: 0800 20 72 OC GETA JSR ADJPNT DECREMENT FILE POINTER 
0169: 0803 A5 FA LDAZ POINTL POINT := SA 
0170: 0805 8D 70 1A STA SAL 
0171: 0808 A5 FB LDAZ POINTH 
0172: O80A 8D 71 1A STA SAH 
0173: O80D 4C 4E 08 JMP GETB 
0174: 
0175: 0810 A2 00 TPINIT LDXIM $00 
0176: 0812 8E 79 1A STX ID RESET ALL TAPE PARAMETERS 
0177: 0815 8E 70 1A STX SAL 
0178: 0818 8E 71 1A STX SAH 
0179: 081B 8E 72 1A STX EAL 
0180: O81E 8E 73 1A OTX EAH 
0161: 
0182: 0821 8E 68 1A TPI STX DISCNT RESET DISPLAY COUNTER 
0183: 0824 AY 06 LDAIM $06 
0184: 0826 8D 82 1A STA PBD DISPLAY OFF 
0185: 0829 AQ IE LDAIM $1E 
0186: 082B 8D 83 1A STA PBDD 
0187: 
0188: O82E 20 36 09 TPTXT JSR TAPDIS DISPLAY TAPE PARAMETERS 
0189: 0831 DO FB BNE TPTXT KEY RELEASED? 
0190: 
0191: 0833 20 36 09 TTXT JSR TAPDIS 
0192: 0836 FO FB BEQ TTXT ANY KEY DEPRESSED? 
0193: 0838 20 36 09 JSR TAPDIS DEBOUNCE KEY 
0194: 083B FO F6 BEQ TIAL KEY STILL DEPRESSED? 
re 083D 20 F9 1D JOR GETKEY RETURN WITH KEY IN ACCU 
196: 
0197: O840 C9 14 GET CMPIM $14 PC KEY? 
0198: 0842 DO OE BNE SAVE 
0199: O844 20 02 OB JSR RDTAPE READ DATA FROM TAPE 
0200: 0847 A2 FF LDXIM $FF 
0201: 0849 EC 79 1A CPX ID CHECK, IF ID = FF 
0202: o84C FO B2 BEQ GETA IF YES, ADJUST FILE POINTER 
0203: 
0204: O84E E8 GETB INX RESET DISCNT 
0205: O84F 4c 21 08 JMP TPL SHOW “ID XxX’ 
0206: 
0207: 0852 C9 10 SAVE CMPIM $10 AD KEY? 
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0208: 
0209: 
0210: 
0211: 
0212: 
0213: 
0274; 
0215: 
0216: 
0217: 
0218: 
0219: 
0220: 
02213 
0222: 
0223: 
0224; 
0225: 
0226: 
0227 
0228: 
0229: 
Ue2s0% 
0231: 
0232: 
0233: 
0234: 
0235: 
0236: 
O237% 
0238: 
0239: 
0240: 
0241: 
0242: 
0243: 
024k: 
0245: 
O246: 
C247: 
0248: 
0249: 
0250: 
0251: 
0252: 
0253: 
0254; 
0255: 
0256: 
0257: 
0258: 
0259: 
0260: 
0261: 
0262: 
0263: 
0264: 
0265: 
0266: 
0267: 
0268: 
0269: 
0270: 
0271: 
0272: 
0273: 
0274; 
0275: 
0276: 


0854 
0856 
0859 
085B 


O85E 
0860 
0862 
0865 
0867 
O86A 
O86C 
086E 
0871 


0873 
0875 
0877 
0879 
087C 
O87E 
6881 
0883 
0886 
0888 


088B 
088E 
0891 
0893 
0896 
0898 
0899 


089C 
O89E 
O8A0 


08A3 
08A5 
O8A7 
O8A9 
O8AB 
O8AD 
O8AF 
08B1 
O8BY4 
08B6 
08B9 


O8BC 
O8BD 
08Cco 
08C2 
08C5 


08C8 
08C9 
O8cc 
O8CE 


08D1 


O8D4 
08D5 
08D8 
O8DA 
O8DD 


O8EO 


DO 
20 


HC 


C9 
DO 
EE 


CC 
DO 
AO 
8C 
FO 


C9 
DO 
A5 
8D 
A5 
8D 
A5 
8D 
A5 
8D 


20 
20 
AQ 
8D 
A2 


HC 


cg 
DO 
4C 


06 
06 
06 
06 
05 
85 
AQ 
cc 


8D 
AC 


c8 


CC. 


DO 
8D 
4C 


C8 
cc 
DO 
8D 


uC 


C8 
CC 
DO 
8D 
4C 


c8 


68 
06 
<3 
2E 


09 
08 


1A 
1A 


1A 


TA 
1A 
TA 
1A 


09 
1E 


TA 


1C 


1A 


TA 
08 


1A 
TA 
08 
1A 
1A 


08 
1A 


TA 
08 


PLUS 


FILES 


DAT 


SHIFT 


STSAH 


STSAL 


STEAH 


STEAL 


BNE 
JSR 
LDXIM 
JMP 


CMPIM 
BNE 
INC 
LDYIM 
CPY 
BNE 
LDYIM 
STY 
BEQ 


CMPIM 
BNE 
LDAZ 
STA 
LDAZ 
STA 
LDAZ 
STA 
LDAZ 
STA 


JSR 
JSR 
LDAIM 
STA 
LDXIM 
TXS 
JMP 


CMPIM 
BNE 


JMP 


ASLZ 
ASLZ - 


ASLZ 
ASLZ 
ORAZ 
STAZ 
LDYIM 
CPY 
BNE 
STA 
JMP 


INY 
CPY 
BNE 
STA 
JMP 


INY 
CPY 
BNE 
STA 


JMP 


INY 
CPY 
BNE 
STA 
JMP 


INY 


PLUS 
DUMP 
$00 
TPI 


$12 
FILES 
DISCNT 
$09 
DISCNT 
TPTXT 
$00 
DISCNT 
TPTXT 


$13 
DAT 
BEGADL 
SAL 
BEGADH 
SAH 
CENDL 
EAL 
CENDH 
EAH 


DUMP 
BEGIN 
$1E 
PBDD 
$FF 


WARMST 


$11 
SHIFT 


COLDST 


INH 
INH 
INH 
INH 
INH 
INH 
$00 
DISCNT 
STSAH 
ID 
TPTXT 


DISCNT 
STSAL 
SAH 


TPTXT 


DISCNT 
STEAH 
SAL 


TPTXT 


DISCNT 
STEAL 
EAH 


TPTXT 


WRITE DATA ON TAPE 

SHOW “ID XX’ 

+ KEY? 

SET UP PARAMETER COUNTER 
LIMIT COUNT 


RESET PARAMETER COUNTER 


GO KEY? 


BEGAD := SA 


CEND := EA 


WRITE DATA = FILE ON TAPE 
SHOW THE FIRST INSTRUKTION 
DIFINE I/0 

RESET STACK 

RETURN TO EDITOR 

DA KEY? 

IT WAS A DATA KEY 

EDITOR COLD START ENTRY 


SHIFT KEY INTO DISPLAY BUFFER 


RESET PARAMETER COUNTER 
ID TO DISPLAY? 


SAVE ID 


SAH TO DISPLAY? 
SAVE SAH 


SAL TO DISPLAY? 


SAVE SAL 


EAH TO DISPLAY? 
SAVE EAH 
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0277: 
0278: 
0279: 
0280: 
0281: 
0282: 
0283: 
0284: 
0285: 
0286: 
0287: 
0288: 
0289: 
0290: 
0291: 
0292: 
0293: 
0294: 
0295: 
0296: 
0297: 
0298: 
0299: 
0300: 
0301: 
0302: 
0303: 
0304: 
0305: 
0306: 
0307: 
0308: 
0309: 
0310: 
0311: 
0312: 
03713: 
0314: 
0315: 
0316: 
0317: 
0318: 
0319: 
0320: 
0321: 
0322: 
0323: 
0324: 
0325: 
0326: 
0327: 
0328: 
0329: 
0330: 
0331: 
0332: 
0333: 
0334: 
0335: 
0336: 
0337: 
0338: 
0339: 
0340: 
O341: 
0342: 
0343: 
0344; 
0345: 
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O8E 1 
O8E4 
O8E6 
O8E9 


O8EC 
O8ED 
O8FO 
O8F2 
O8F4 


O8F7 
O8F8 
O8FB 
O8FD 
O8FF 


0902 
0903 
0906 
0908 
O90A 


090D 
O90E 
0911 
0913 
0915 


0918 


091B 
O91E 
0921 
0924 
0925 


0927 
0928 
092A 
092B 
o92C 
092D 
092E 
0930 
0932 
0935 


0936 
0938 


093B 
093D 
093F 
0942 
0944 
0947 


0949 
O94C 


O94D 
O94E 
0951 
0953 
0956 


CC 
DO 
8D 
4C 


c8 
cc 
DO 
85 
4C 


c8 
CC 
DO 
85 
4C 


mn 
w 


cc 
DO 
85 
4C 


C8 
cc 
DO 
85 
4C 


4c 


A2 
AO 
CC 
DO 
AD 
85 


20 
60 


c8 
CC 
DO 
AD 
85 


68 
05 
E3 
2E 


68 
05 
E2 
2E 


68 
05 
E5 
2E 


68 
05 


2E 


10 


BB 
80 
82 


fos 


FD 


10 
E93 
A7 


68 
09 
(a. 
FQ 


1A 


1A 
08 


1A 


08 


1A 


08 


1A 


08 


08 


08 


09 
1A 
1A 


1A 


TA 


1A 


09 


TA 
1A 


STBEGH 


STBEGL 


STENDH 


STENDL 


TPVEC 


CPY 
BNE 
STA 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


JMP 


SUBROUTINES 


TDISP 


DELY 


TAPDIS 


SID 


COMPNT 


SSAH 


LDAY 
STA 
STX 
TYA 
LDYIM 


DEY 
BNE 
TAY 
INX 
INX 
INY 
CPXIM 
BNE 
JSR 
RTS 


LDAIM 
STA 


LDXIM 
LDYIM 
CPY 
BNE 
LDA 
STAZ 


JSR 
RTS 


INY 
CPY 
BNE 
LDA 
STAZ 


DISCNT 
STBEGH 
EAL 
TPTXT 


DISCNT 
STBEGL 
BEGADH 
TPTXT 


DISCNT 
STENDH 


BEGADL 
TPTXT 


DISCNT 
STENDL 
ENDADH 
TPTXT 


DISCNT 
TPVEC 
ENDADL 
TPIXt 


TPINIT 


TLOOK 
PAD 
PBD 


$7F 


DELY 


$10 
TDISP 
LDAINH 


$7F 
PADD 


$08 
$00 
DISCNT 
SSAH 
ID 

INH 


TDISP 


DISCNT 
SSAL 
SAH 
INH 


EAL TO DISPLAY? 


SAVE EAL 


BEGH TO DISPLAY? 
SAVE BEGADH 


BEGADL TO DISPLAY? 


SAVE BEGADL 


ENDADH TO DISPLAY? 


SAVE ENDADH 


ENDADL TO DISPLAY? 
ERROR EXIT 
SAVE ENDADL 


OF “TAPE MANAGEMENT’ 


TEXT LOOKUP 

OUTPUT TEXT PATTERN 
DISPLAY ENABLE 

SAVE INDEX Y 

DELAY 


RESTORE INDEX Y 
SET UP FOR NEXT DISPLAY 


ADJUST TEXT POINTER 
4 DISPLAYS SCANNED? 


DISPLAY DATA BUFFER INH 


I/O DEFINITION 
INIT DISPLAY SWITCH 
ID TO DISPLAY? 


ID TO DISPLAY 


SHOW ANY PARAMETER 


SAH TO DISPLAY? 


SAH TO DISPLAY 


0958 
O95A 


095C 
095D 


: 0960 


0962 
0965 


> 0967 


0969 
096B 


: 096C 


096F 
0971 


0974 | 


0976 


: 0978 


O97A 


: O97B 
: OOTE 
: 0980 
: 0983 
: 0985 
: 0987 


: 0989 
: O98A 
: 098D 
: O98F 
: 0991 
: 0993 
: 0995 


: 0997 
: 0998 
: 0998 
: O99D 
: O99F 
: O9A1 
> O9A3 


O9A5 
09A6 
O9AQ 
O9AB 


O9AD 


: O9AF 
: O9B1 


09B3 


: O9B5 


O9B7 
O9B9 


O9BB 
O9BC 
O9BD 
O9BE 


O9BF 
09co 
09C1 
09C2 


66 


TF 
TE 


52 
08 
09 
TF 


1A 
1A 


1A 


1A 


1A 


TA 


SSAL 


SEAH 


SEAL 


SBEGH 


SBEGL 


SENDH 


SENDL 


LDYIM 
BNE 


INY 
CPY 
BNE 
LDA 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDA 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDA 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDAZ 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDAZ 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDAZ 


STAZ 
LDYIM 
BNE 


LDAZ 
STAZ 
LDYIM 
BNE 


$04 
COMPNT 


DISCNT 
SEAH 
SAL 
INH 


$08 
COMPNT 


DISCNT 
SEAL 
EAH 
INH 
$OC 
COMPNT 


DISCNT 
SBEGH 
EAL 
INH 
$10 
COMPNT 


DISCNT 
SBEGL 
BEGADH 
INH 
$14 
COMPNT 


DISCNT 
SENDH 
BEGADL 
INH 
$18 
COMPNT 


DISCNT 
SENDL 
ENDADH 
INH 
$1C 
COMPNT 


ENDADL 
INH 
$20 
COMPNT 


LOOKUP POINTER 
SHOW. SAH 

SAL TO DISPLAY? 
SAL TO DISPLAY 
LOOKUP POINTER 
SHOW SAL 

EAH TO DISPLAY? 
EAH TO DISPLAY 


LOOKUP POINTER 
SHOW EAH 


LOOKUP POINTER 
SHOW EAL 


7 SEGMENT TEXT LOOKUP TABLE 


TLOOK 


ik ow wt 


woh wow 


$66 
$21 
$7F 
$7F 


$52 
$08 
$09 
$7F 


ID PATTERN 


SAH PATTERN 
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O415: 
O416: 
O417: 
0418: 
0419: 
0420: 
O421: 
O422: 
0423: 
‘O424; 
0425: 
0426: 
O427: 
0428: 
0429: 
0430: 
O431: 
0432: 
0433: 
O434: 
0435: 
0436: 
0437: 
0438: 
0439: 
O440: 
O44: 
O442: 
O443; 
O444: 
O44S: 
O446: 
O447: 
O448; 
O49: 
0450: 
0451: 
O452: 
0453: 
O454: 
O455: 
O456: 
O457: 
0458: 
0459: 
0460: 
0461: 
O462: 
0463: 
O464: 
0465: 
O466: 
O467: 
O468: 
0469: 
O4T70: 
O47 1: 
0472: 
0473: 
O4T4: 
O475: 
O476: 
O4TT: 
0478: 
O479: 
O480: 
0481; 
O482: 
0483: 
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09C3 
o9c4 
09C5 
09C6 


O9CT 
ogcés 
09C9 
O9CA 


O9CB 
og9cc 
O9CD 
O9CE 


O9CF 
09D0 
09D1 
09D2 


09D3 
O9D4 
09D5 
09D6 


09D7 
09D8 
09D9 
O9DA 


O9DB 
o9DC 
O9DD 
O9DE 


O9DF 
O9E1 
O9E4 
O9E6 
O9E9 
O9EB 
O9EE 
O9FO 


O9F3 
O9F5 
O9F7 
OOFA 
O9FD 
OAOO 
OA02 
OAO4 
OAOT 
OAOA 
OAOD 
OA10 
0A13 
OA15 
0A18 
OATA 
OA1C 


OAIF 
0A21 
OA24 


1A 
1A 
1A 


1A 
1A 
1A 
1A 


1A 
1A 


oom on oo Wouog a mb oot oat Hot ot at 


1 | 


4 at 


1 ow @ 0 


$52 
$08 
$47 
$7F 


$06 
$08 
$09 
$7F 
$06 
$08 
$47 
$7F 


$03 
$06 
$42 
$09 


$03 
$06 
$42 
$47 


$06 
$258 
$21 
$09 


$06 
$2B 
$21 
$47 


SAL PATTERN 


EAH PATTERN 


EAL PATTERN 


BEGH PATTERN 


BEGL PATTERN 


ENDH PATTERN 


ENDL PATTERN 


25-95 96 9006 OE AE aE 00 HE OE HE AE AG a aE aa 


* DUMP/DUMPT IS A SUBROUTINE * 
26-96-06 96 AE 0 a8 0 a OE OE aE 90 aaa aH 


DUMP LDAIM 
STA 


LDAIM 
STA 
LDAIM 
STA 
LDAIM 
STA 


DUMPT LDAIM 
LDXIM 
STA 
STA 
STX 
LDAIM 
LDXIM 
STA 
STX 
STA 
STA 
LDA 
STAZ 
LDA 
STAZ 
LDXIM 
STX 


SYNCS LDAIM 
JSR 
DEC 


$7D 
HIGHE 
$C3 
LOWER 
$03 
FIRST 
$02 
SECOND 


$47 
$FF 
PBD 
GANG 
PBDD 
$00 
$7F 
PAD 
PADD 
CHKL 
CHKH 
SAL 
POINTL 
SAH 
POINTH 


$FF 
SYNCNT 


R 


OUTCH 
SYNCNT 


3600HZ HALF PERIODE DELAY 
2400 HZ HALF PERIODE DELAY 
TOGGLE 3 TIMES AT 3600 HZ 


TOGGLE 2 TIMES AT 2400 HZ 


PBD PATTERN 

PBDD PATTERN 

INPUT OFF,OUTPUT ON,STROBE DISABLED 
SAVE BITS OF PBD 

PB7...PBO IS OUTPUT 

PAD PATTERN 

PADD PATTERN 

SEGMENTS ON BUT DISABLED 

ALL LINES OUTPUT EXEPT PA7 

RESET CHECK SUM 


INITIALIZE DUMPT POINTER 


SET SYNC COUNTER 


SYN CHARACTER 
OUTPUT 255 SYN CHARACTERS 


O484: 
O485: 
O486: 
O4BT: 
0488: 
0489: 
0490: 
O491: 
0492: 
0493: 
O4g4u: 
0495: 
0496: 
O497: 
0498: 
0499: 
0500: 
0501; 
0502: 
0503: 
0504: 
0505: 
0506: 
0507: 
0508: 
0509: 
0510: 
O511: 
0512: 
0513: 
0514: 
0515: 
05116: 
OS Ti+ 
0518: 
0519: 
0520: 
0521: 
0522: 
0523: 
0524: 
0525: 
0526: 
0527 
0528: 
0529: 
0530: 
0531: 
0532; 
G533:% 
0534: 
0535: 
0536: 
O537% 
0538: 
0539: 
O540: 
O541: 
0542: 
0543: 
O544: 
0545: 
0546: 
O547: 
0548: 
0549: 
0550: 
055'1.: 
0552: 


OA2T 


OA29 
OA2B 
OA2E 
0A31 
0A34 
OA37 
OA3A 
OA3D 


OA4O 
OAY2 
OA4S 
OA4T 
OAYNQ 
OANC 


OAYE 
0A50 
0A53 
0A56 
OA59 
OA5C 
OA5F 
OA61 
OA64 
OA66 


OA69 


OAGA 
OA6C 
OA6E 
OA71 
OA73 
OAT5 
OATT 


OATA 
OATB 
OATC 
OATF 
0A82 
OA85 
0A87 
OA8A 


OA8B 


DO 
Ag 


AD 
20 
AD 
20 
AD 
20 


A5 


DBO 
A5 
CD 
DO 


Ag 
20 
AD 
20 
AD 
20 
A9 
20 
AQ 
20 


60 


AQ 
Bd 
20 
E6 
DO 
E6 
4C 


A8 
18 
6D 
8D 
AD 
69 
8D 
98 


AB 


F6 
2A 


79 
8B 
70 
TA 
71 
TA 


FB 
73 


FA 


te 
1c 


2F 
A3 
6E 
8B 
6F 
8B 
04 
A3 
O4 
A3 


00 
FA 
TA 
FA 
CB 
FB 
40 


6E 


6F 
00 
6F 


OA 
1A 
OA 
1A 
OA 
1A 
OA 


1A 


TA 


OA 


OA 


1A 
1A 


1A 


DATATR 


HEXDAT 


BNE 


LDAIM 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 


LDAZ 
CMP 
BNE 
LDAZ 
CMP 
BNE 


LDAIM 
JSR 
LDA 
JSR 
LDA 


JSR 
LDAIM 


JSR 


SYNCS 


°* 
OUTCH 
ID 
OUTBT 
SAL 
OUTBTC 
SAH 
OUTBTC 


POINTH 
EAH 
HEXDAT 
POINTL 
EAL 
HEXDAT 


¢ 


OUTCH 
CHKL 
OUTBT 
CHKH 
OUTBT 


* 


OUTCH 


LDAIM ~ 


JSR 
RTS 


LDYIM 
LDALY 
JSR 
INCZ 
BNE 
INCZ 
JMP 


OUTCH 


$00 

POINTL 
OUTBTC 
POINTL 
DATATR 
POINTH 
DATATR 


OUTPUT START CHARACTER 
OUTPUT ID 


OUTPUT START ADDRESS 
AND START CHECK SUM COMPUTATION 


ENTIRE FILE TRANSMITTED? 


OUTPUT END OF DATA CHARACTER 
STOP WITH CHECK SUM COMPUTATION 


OUTPUT CHECK SUM 


EOT CHARACTER 
OUTPUT EOT CHARACTER 
EOT CHARACTER 


RETURN TO CALLER 


FETCH CURRENT DATA BYTE 
TRANSMIT CURRENT DATA BYTE 
AND COMPUT CHECK SUM 

SET UP FOR NEXT DATA BYTE 


### END OF DUMP/DUMPT *** 
DUMP’S SUBROUTINES 


OUTBTC OUTPUTS A HEX BYTE AS TWO ASCII CHARACTERS 
TO THE TAPE RECORDER. ALSO THE CHECK SUM IS COM- 


PUTED. 


OUTBT OUTPUTS A HEX BYTE AS TWO ASCCI CHARACTERS 
TO THE TAPE RECORDER WITHOUT CHECK SUM COMPUTATION. 


NIBOUT CONVERTS A HEX NIBBLE TO AN ASCII CHARACTER 
AND TRANSMITS THE 8 BIT ASCII WORD TO THE TAPE. 


HIGH AND LOW PRODUCE THE DELAYS OF THE 3600 HZ AND 
THE 2400 HZ FREQUENCY. 


##*® QUTBTC/OUTBT *## 


OUTBTC 


OUTBT 


TAY 
CLC 
ADC 
STA 
LDA 
ADCIM 
STA 
TYA 


TAY 


CHKL 
CHKL 
CHKH 
$00 

CHKH 


SAVE ACCU 


CHECK SUM COMPUTATION 


CHK:= CHK + BYTE 
GET ACCU AGAIN 


SAVE ACCU TEMP 


195 


0553: 
0554: 
0555: 
0556: 
0557: 
0558: 
0559: 
0560: 
0561: 
0562: 
0563: 
0564: 
0565: 
0566: 
0567: 
0568: 
0569: 
0570: 
0571: 
O57e: 
0573: 
OS74: 
0575: 
0576: 
O57 7% 
0578: 
0579: 
0580: 
0581: 
0582: 
0583: 
0584: 
0585: 
0586: 
0587: 
0588: 
0589: 
0590: 
0591: 
0592: 
0593: 
0594: 
0595: 
0596: 
0597: 
0598: 
0599: 
0600: 
0601: 
0602: 
0603: 
0604: 
0605: 
0606: 
0607: 
0608: 
0609: 
0610: 
0611: 
0612: 
0613: 
0614: 
0615: 
0616: 
0617: 
0618: 
0619: 
0620: 
0621: 
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OA8C 
OABD 
OA8E 
OASF 
OA90 
0A93 
OAS4 
OA96 


0A99 


OAQA 
OAQC 
OASD 
OASF 


OAA} 


OAA3 
OAA5 


CAA8 
OAAS 
OAAA 
OAAC 
OAAF 
OAB2 
OAB5 


OAB8 
OABB 
OABE 


OAC 
OAC?) 
OAC5 
OACT 


OAC8 


OACB 
OACE 
OADO 
OAD3 
OAD6 
OADY 
OADB 
OADE 
OAE1 
OAE2 
OAE4Y 


OAE5 
OAE8 


4A 
4A 
4A 
4A 
20 


29 
20 
60 


C9 
18 
30 
69 


69 


A2 
8E 


4A 
48 
90 
20 
20 
20 
4C 


20 
20 
20 


68 
CE 
DO 
60 


AE 


2C 
10 
AD 
8D 
AD 
49 
8D 
8D 
CA 
DO 
60 


AE 
2c 


9A 


OF 
9A 


OA 


02 
O7 


30 


08 
te 


oC 
c8 
E5 
E5 
C1 


c8 
C8 
E5 


T5 
Ei 


76 


D5 
FB 
6C 
FY 
78 
80 
82 
78 


E7 


iT 
D5 


OA 


OA 


OA 
OA 
OA 
OA 
OA 


OA 
OA 


1A 


1A 
1A 
1A 
1A 
TA 


1A 
1A 


TA 
TA 


LSRA 
LSRA 
LSRA 
LSRA 
JSR 
TYA 
ANDIM 
JSR 
RTS 


NIBOUT 


$OF 
NIBOUT 


GET UPPER NIBBLE 


OUTPUT UPPER NIBBLE AS ASCII CHAR. 
GET BYTE AGAIN 

GET LOWER NIBBLE | 
OUTPUT LOWER NIBBLE AS ASCII CHAR. 


##*® END OF OUTBTC/OUTBT *#* 


##® NIBOUT/OUTCH ### 


NIBOUT CMPIM 
CLC 
BMI 
ADCIM 


NIB ADCIM 


OUTCH LDXIM 
STX 


ONE LSRA 
PHA 
BCC 
JSR 
JSR 
JSR 
JMP 


ZERO JSR 
JSR 
JSR 


ZRO PLA 
DEC 
BNE 
RTS 


$OA 
NIB 
$07 
$30 


$08 
BITS 


ZERO 
HIGH 
LOW 
LOW 
ZRO 


HIGH 
HIGH 
LOW 


BITS 
ONE 


CONVERT A NIBBLE TO AN ASCII CHAR. 


SET UP FOR 8 BITS 


SHIFT OUT BIT BY BiT 
SAVE CHARACTER 


START AT 3600 HZ 


END AT 2400 HZ 


START AT 3600 HZ 
END AT 2400 HZ 


GET CHARACTER AGAIN 
ALL BITS SHIFTED OUT 


##*# END OF NIBOUT/OUTCH *#*# 


##% HIGH ### 
HIGH LDX 


HIG BIT 
BPL 
LDA 
STA 
LDA 
EORIM 
STA 
STA 
DEX 
BNE 
RTS 


FIRST 


RDF LAG 
HIG 
HIGHER 
CNTA 
GANG 
$80 
PBD 
GANG 


HIG 


#%# END OF HIGH *#* 


HEe LOW #R# 


LOW LDX 
LO BIT 


SECOND 
RDFLAG 


AMOUNT OF HALF PERIODES 
TIME OUT? 


SET UP TIMER FOR SHORT PERIODE 
DISABLE TIMER IRQ, CLK1IT 


TOGGLE OUTPUT 
SAVE STATUS QUO 


AMOUNT OF HALF PERIODES 
TIME OUT? 


0622: 
0623: 
0624: 
0625: 
0626: 
0627: 
0628: 
0629: 
0630: 
0631: 
0632: 
0633: 
0634: 
0635: 
0636: 
0637: 
0638: 
0639: 
O640: 
0641: 
0642: 
0643: 
O644; 
0645: 
0646: 
O647: 
0648: 
0649: 
0650: 
0651: 
0652: 
0653: 
0654: 
0655: 
0656: 
0657: 
0658: 
0659: 
0660: 
0661: 
0662: 
0663: 
0664: 
0665: 
0666: 
0667: 
0668: 
0669: 
0670: 
0671: 
0672: 


0673: 


O674: 
0675: 
0676: 
0677: 
0678: 


0679: 
0680: 
0681: 
0682: 
0683: 
0684: 
0685: 
0686: 
0687: 
0688: 
0689: 
0690: 


OAEB 
OAED 
OAFO 
OAF3 
OAF6 
OAF8 
OAFB 
OAFE 
OAFF 
OBO1 


OBO2 
OBO4 
OBO7 
OBOA 
OBOC 
OBOF 
0B11 
OB14 
0B 16 
0OB19 


OB1C 
OB1E 


OB21 
OB24 
OB27 
OB2A 
OB2D 
OB2F 
0B31 
0B33 


0B36 
0B39 
OB3C 
OB3E 
OB4YO 
0B43 


OBAS5 
OB48 
OB 4S 
OB4D 
OB4F 
0B51 
0B53 


0B55 
0B58 
OB5B 
OB5E 


OB60 
0B63 
OB66 


10 
AD 
8D 
AD 
49 
8D 
8D 
CA 
DO 
60 


AQ 


8D 
AQ 


AQ 
8D 
AQ 
8D 
8D 


AQ 
8D 


20 
6E 
AD 
20 
C9 
DO 
AO 
8C 


20 
20 
C9 
DO 
CE 


DO 


20 
20 
C9 
FO 
i) 
FO 
DO 


20 
20 
CD 
DO 


20 
20 
85 


FB 
6D 
FY 


80 
82 
78 


E7 


32 


78 
7E 


7F 
81 
00 
6E 
6F 


FF 
6B 


C2 
6B 
6B 
E8 
16 
FO 
OA 
69 


36 
5D 
16 


69 
Ft 


36 
5D 
2A 
06 
16 
F2 
AD 


5D 
F3 


3E 
F3 


4B 
FA 


TA 
1A 


TA 
1A 


1A 
1A 


1A 
1A 
1A 
1A 
1A 
OB 
1A 


1A 
OB 


1A 


Oc 
oc 


1A 


oc 
oc 


OC 
OB 
TA 


OB 
oc 


BPL 
LDA 
STA 
LDA 
EORIM 
STA 
STA 
DEX 
BNE 
RTS 


LO 
LOWER SET UP TIMER FOR LONG PERIODE 


CNTA DISABLE TIMER IRQ, CLKIT 


GANG 
$80 TOGGLE OUTPUT 


PBD 
GANG SAVE STATUS QUO 


LO 


### END OF LOW ##* 


RRRARKREAAHKHRHREKRKKRRRKKK AHS 


# RDTAPE IS A SUBROUTINE * 
HEE REE EE ER 


ID = 00: IGNORE ID ON TAPE; DISCARD DATA BLOCK 
AT SAL, SAH COMING FROM TAPE 


ID = FF: IGNORE ID ON TAPE; DISCARD DATA BLOCK 
AT SAL, SAH STORED IN JUNIORS MEMORY 


RDTAPE LDAIM 
STA 
STA 
LDAIM 
STA 
LDAIM 
STA 
LDAIM 
STA 
STA 


SYNC LDAIM 
STA 


SYNCA JSR 
ROR 
LDA 
JSR 
CMPIM 
BNE 
LDYIM 
STY 


TENSYN JSR 
JSR 
CMPIM 
BNE 
DEC 


BNE 


STAR JSR 
JSR 
CMPIM 
BEQ 
CMPIM 
BEQ 
BNE 


STARA JSR 
JSR 
CMP 
BNE 


RDSA JSR 
JSR 
STAZ 


$32 INPUT RECORDER IS ON 

PBD OUTPUT RECORDER IS OFF, PB7 IS ENABLED 
GANG STROBE “9° IS ENABLED 

$7E PBO IS INPUT 

PBDD PB7 IS INPUT 

$7F PA6...PAO IS OUTPUT 

PADD 

$00 SEGMENTS ON 

CHKL RESET CHECK SUM 

CHKH 


$FF RESET FOR SYN CHARACTER 
CHAR 


RDBIT READ A BIT FROM TAPE 

CHAR RIGHT SHIFT 

CHAR GET CURRENT CHARACTER 
BIWEEN DISPLAY NOT SYN CHARACTER 
: SYN CHARACTER? 

SYNCA IF NOT, RESYNC 


$0A TRY IT FOR 10 SYNS AT LEAST 
SY SYN COUNTER 
RDCH 


CHARVU DISPLAY SYN CHARACTER 
° STILL SYN CHARACTER? 
SYNC IF NOT, RETURN 

SY 10 SYNS RECEIVED? 


TENSYN RETURN IF LESS THAN 10 SYNS 


RDCH WAIT FOR “**° CHARACTER 
CHARVU 

* 

STARA 

STILL SYN CHARACTER? 
STAR IF YES, THEN WAIT 
RDTAPE IF NOT, THEN RESYNC 


CHARVU DISPLAY “*’ 

RDBYT READ ID FROM TAPE 
ID REQUESTED ID? 
CHKID 


RDBYT READ SAL FROM TAPE 


CHKSUM CHECK SUM COMPUTATION 
POINTL SET UP STORE POINTER 
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0691: 
0692: 
0693: 
0694: 
0695: 
0696: 
0697: 
0698: 
0699: 
0700: 
O701: 
0702: 
0703: 
O704: 
0705: 
0706: 
0707: 
0708: 
0709: 
0710: 
0711: 
0712: 
0713: 
0714: 


0715: 


0716: 
0717: 
0718: 
0719: 
0720: 
0721: 
0722: 
0723: 
O724: 
0725: 
0726: 
O72¢5 
0728: 
0729: 
0730: 
0731: 
0732: 
0733: 
0734: 
0735: 
0736: 
0737: 
0738: 
0739: 
0740: 
0741: 
GT42: 
0743: 
O744: 
O745: 
0746: 
O747: 
O748: 
O749: 
0750: 
0751: 
0752: 
0753: 
O754: 
0755: 
0756: 
O75T: 
0758: 
0759: 
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0B68 
OB6B 
OB6E 


OB70 
0B73 
OB75 
OB77 
OB7A 
OB7C 
OB7E 
OB80 
OB82 


OB84 
0B87 


OB8A 
OB8D 
0B90 
OB92 
OB95 
0B98 
OB9A 


OB9B 


OB9E 
OBA 1 
OBA3 
OBA5 
OBAT 
OBAY 
OBAC 
OBAF 
OBB2 
OBB5 
OBB8 
OBBA 
OBBD 
OBBF 


OBC2 
OBC5 
OBCT 
OBCA 
OBCC 
OBCF 


OBD} 
OBD2 


OBD4 
OBD7 
OBD9 
OBDA 
OBDD 
OBDF 
OBE2 


20 
20 
85 


20 
30 
FO 
20 
AO 
91 
E6 
DO 
E6 


20 
4C 


20 
CD 
DO 
20 
CD 
DO 
60 


4C 


AD 
C9 


C9 
DO 
20 


20 
20 
AD 


85 
AD 
85 
HC 


2c 
10 
AD 
AO 


AO 


88 
DO 


2c 
30 


ED 
AO 
8C 
AO 


02 


79 
00 


FF 
F2 
F3 
4B 
ae. 


70 
FA 
71 
FB 
70 


82 
FB 


DY 
EY 
F6 
14 


FD 


82 
FB 


D4 
FF 
F6 
O07 


OB 
0c 


OB 


oc 


oc 
OB 


OB 
1A 


OB 
1A 


OB 
1A 


OB 
Oc 
OB 
Oc 
1A 


1A 


OB 


1A 
1A 
1A 


TA 


1A 


1A 


FILMEM 


FMA 


CHECK 


SYNVEC 
CHKID 


JSR 
JSR 
STAZ 


JSR 
BMI 
BEQ 
JSR 
LDYIM 
STALY 
INCZ 
BNE 
INCZ 


JSR 
JMP 


JSR 
CMP 
BNE 
JSR 
CMP 
BNE 
RTS 


JMP 


LDA 
CMPIM 
BEQ 
CMPIM 
BNE 
JSR 
JSR 
JSR 
JSR 
LDA 
STAZ 
LDA 
STAZ 
JMP 


RDBYT 
CHKSUM 
POINTH 


RDBYT 
RDTAPE 
CHECK 
CHKSUM 
$00 
POINTL 
POINTL 
FMA 
POINTH 


VU 
FILMEM 


RDBYT 


CHKL 
SYNVEC 
RDBYT 
CHKH 
SYNVEC 


RDTAPE 


ID 
$00 
RDSA 
$FF 
SYNVEC 
RDBYT 
CHKSUM 
RDBYT 
CHKSUM 
SAL 
POINTL 
SAH 
POINTH 
FILMEM 


READ SAH FROM TAPE 


READ DATA BYTE FROM TAPE 
NOT VALID HEX CHARACTER 
END OF DATA CHARACTER? 


STORE BYTE IN MEMORY 
SET POINTER FOR NEXT BYTE 


DISPLAY °®° 
READ NEXT DATA BYTE FROM TAPE 


READ CHECK SUM FROM TAPE 
AND COMPARE IT 


RETURN TO CALLER 


ID = 00? 
ID = FF? 
READ SA FROM TAPE, BUT IGNORE IT 


USE SA STORED IN BUFFER 


##® END OF RDTAPE ### 


SUBROUTINES OF RDTAPE 


### RDBIT ### 


RDBIT READS 1 BIT FROM TAPE. 
IT RETURNS WITH C = 1 
LOG 0: IT RETUNS WITH C = 0 


LOG 1: 


‘RDBIT 


RDBA 


RDBB 


BIT 
BPL 
LDA 
LDYIM 
STY 
LDYIM 


DEY 
BNE 


BIT 
BMI 
SEC 
SBC 
LDYIM 
STY 
LDYIM 


PBD 
RDBIT 
RDTDIS 
$FF 
CNTC 
$14 


RDBA 


PBD 
RDBB 


RDTDIS 
$FF 
CNTC 
$07 


3600 HZ? 
GET COUNT DOWN 
START TIMER FOR 2400 HZ COUNT DOWN 


DELAY JITTER TIME 


2400 HZ? 


SET OR RESET C-FLAG 


START TIMER FOR 3600 HZ COUNT DOWN 
DELAY FOR JITTER 


0760: 
0761: 
0762: 
0763: 
O764: 
0765: 
0766: 
0767: 
0768: 
0769: 
O770: 
O771: 
O772: 
0773: 
O774: 
O775: 
0776: 
O777: 
0778: 
O779: 
0780: 
0781: 
0782: 
0783: 
0784: 


0785: 
0786: 
0787: 


0788: 
0789: 
0790: 
0791: 
0792: 
0793: 
0794: 
0795: 
0796: 
O797: 
0798: 
0799: 
0800: 
0801: 
0802: 
0803: 
0804: 
0805: 
0806: 


0807: 


0808: 
0809: 
0810: 
0811: 
0812: 
0813: 
0814: 


0815: 


0816: 
0817: 


0818: 


0819: 
0820: 
0821: 


0822 


0823: 
0824: 
0825: 
0826: 
0827: 


OBEY 
OBE5 
OBE7 


OBE8 
OBES 
OBEB 
OBEE 
OBEF 
OBF2 


OBF3 
OBF6 
OBF8 


OBFA 


OBFB 
OBFE 
ocoo 
0CcO1 
0c02 
0C03 
OCO4 
OCO7 
OCOA 
ococ 
OCOE 


0C11_ 


0013 
0C 16 
0c 18 


88 
DO 
60 


48 
A9 
8D 
68 
20 
60 


FD 


36 
80 


64 


36 
01 


19 
FA 


0019 C9 30 
OC1B 30 OC 
0828: OC1D C9 3A 


1A 


OC 


OC 


OC 


1A 


oc 


1A 


RDBC DEY 
BNE RDBC 
RTS 


##* END OF RDBIT ##* 


#*#* BIWEEN *## 


DISPLAY THE BETWEEN CHARACTER 


BIWEEN PHA SAVE ACCU 
LDAIM $36 OUTPUT BETWEEN CHARACTER 
STA PAD 
PLA GET ACCU AGAIN 
JSR = VU DON’T CHANGE BETWEEN 
RTS 


##*# END OF BIWEEN ##** 
#**® RDBYT ### 


READ 1 HEX BYTE = 2 ASCII CHARACTERS FROM TAPE. 
COMPOSE THE HEX VALUES OF THE CHARACTERS IN ACCU 
AND RETURN. 


1: A NOT VALID HEX CHARACTER WAS TRANSMITTED 
1: END OF DATA TRANSMISSION 


0: VALID HEX BYTE IN ACCU 
N-FLAG HAS ALWAYS PRIORITY 


NN = 
am 
muou ow 


) 
) 
) 
) 


Fit — 


RDBYT JSR RDCH READ ANY ASCII CHARACTER FROM TAPE 
CMPIM “/ END OF DATA CHARACTER? 
BNE RBB 


RBA RTS ERROR EXIT 


RBB JSR ASCHEX ASCII HEX CONVERSION 
BMI RBA NOT VALID CHARACTER 
ASLA SHIFT NIBBLE TO LEFT 
ASLA 
ASLA 
ASLA 
STA BYTE SAVE HIGH ORDER NIBBLE 
JSR RDCH READ NEXT CHARACTER 
CMPIM ‘°/ END OF DATA CHARACTER 
BEQ RBA 
JSR ASCHEX ASCII HEX CONVERSION 
BMI RBA NOT VALID CHARACTER 
ORA BYTE BYTE = HIGH ORDER AND LOW ORDER NIBBLE 
LDYIM $01 BE SHURE THAT CHARACTER 
RTS NORMAL EXIT 


##% END OF RDBYT *## 
#2# ASCHEX *®## 


CONVERT AN ASCII CHARACTER TO A HEX DATA NIBBLE. 


1) RETURN WITH CONVERTED HEX NUMBER IN ACCU 

2) N= 1, IF NOT VALID HEX NUMBER 

3) Z = 1, IF VALID HEX NUMBER 

4) ### ASCHEX IS ALSO USED IN THE PRINTER SOFTWARE *** 


ASCHEX CMPIM $30 IGNORE 00...2F 


BMI NOTVAL 
CMPIM $3A 
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0829: 
0830: 
0831: 
0832: 
0833: 
0834: 
0835: 
0836: 
0837: 
0838: 
0839: 
o84o: 
0841: 
0842: 
0843: 
O844: 
0845: 
O846: 
O847: 
0848: 
0849: 
0850: 
0851: 
0852: 
0853: 
0854: 
0855: 
0856: 
0857: 
0858: 
0859: 
0860: 
0861: 
0862: 
0863: 
o864: 
0865: 
0866: 
0867: 
0868: 
0869: 
0870: 
0871: 
0872: 
0873: 
O874: 
0875: 
0876: 
0877: 
0878: 
0879: 
0880: 
0881: 
0882: 
0883: 
0884: 
0885: 
0886: 
0887: 
0888: 
0889: 
0890: 
0891: 
0892: 
0893: 
0894; 
0895: 
0896: 
0897: 
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OC 1F 
0021 
0023 
0C25 
0C27 


0C29 
OC2B 


oce2c 
OC2E 
0C30 
0C31 


0033 
0C35 


0036 


0038 
O0C3B 
OC3E 
OC3F 
0Cc41 
OC44 
OCHT 
OCHA 


OC4B 
OCHE 
OCHD 
0c50 
0C53 
0C56 
0c58 
OC5B 
ocsc 


OC5D 
OC5E 
0C60 
0C63 


0c64 
0cé65 
0c68& 


30 
cg 
30 
cg 
30 


AO 
60 


C9 


18 
69 


29 
60 


A2 


20 
6E 
CA 
DO 
2E 
4E 
AD 
60 


48 
18 
6D 
8D 
AD 
69 


68 
60 


OB 
44 
04 
47 
03 


FF 


40 
03 


09 
OF 


08 


C2 
6B 


FT 
6B 
6B 
6B 


6E 
6E 
6F 
00 
6F 


78 
02 


OB 
1A 


1A 
1A 
1A 


1A 
1A 


1A 


TA 


1A 


1A 


BMI VALID 
CMPIM $41 IGNORE 3A...40 
BMI NOTVAL 
CMPIM $47 IGNORE 47...7F 


BMI VALID 
NOTVAL LDYIM $FF SET N-FLAG 
RTS ERROR EXIT 
VALID CMPIM $40 ASCII HEX CONVERSION 
BMI VAL 
CLC 
ADCIM $09 


VAL ANDIM $0F HEX DATA IS LOW ORDER NIBBLE IN ACCU 
RTS 


### END OF ASCHEX ### 

##* RDCH ### 

READ AN ASCII CHARACTER FROM TAPE AND 
STORE IT IN ACCU 

RDCH LDXIM $08 SET UP FOR 8 BITS 


READ JSR RDBIT READ A BIT FROM TAPE 
ROR CHAR SHIFT BIT INTO CHARACTER 


DEX ALL BITS READ? 

BNE READ 

ROL CHAR B7 MUST BE ZERO 

LSR CHAR 

oe CHAR RECEIVED CHARACTER TO ACCU 


### END OF RDCH ### 


##% CHKSUM ### 


COMPUTE CHECK SUM OF RECEIVED DATA 


CHKSUM PHA SAVE ACCU 
CLC 
ADC CHKL CHK := CHK + BYTE 
STA CHKL 
LDA CHKH 
ADCIM $00 
STA CHKH 
PLA GET ACCU AGAIN 
RTS 


##* END OF CHKSUM *## 


##% CHARVU ##* 


OUTPUT ANY CHARACTER TO 7 SEGMENT DISPLAY 


CHARACTER CHANGE IS ENABLED/DISABLED 


CHARVU PHA SAVE ACCU 
EORIM $7F OUTPUT INVERTED CHAR. TO SEGMENTS 
STA PAD 
PLA RESTORE ACCU 
VU PHA 
LDA GANG 


EORIM $02 CHANGE DISPLAYS 


0898: OC6A 8D 82 iA STA PBD 


0899: OC6D 8D 78 iA STA GANG SAVE STATUS QUO 

0900: OC70 68 PLA 

0901: 0C71 60 RTS 

0902: 

0903: ##* END OF CHARVU *## 

0904: 

0905: 

0906: ADJPNT ADDRESS POINTER ADJUSTMENT 

0907: OC72 38 ADJPNT SEC 16 BIT SUBTRACTION 
0908: O0C73 A5 FA LDAZ POINTL 

0909: OC75 EQ 01 SBCIM $01 

0910: OC77 85 FA STAZ POINTL 

0911: OC79 AS FB LDAZ POINTH 

0912: OC7B E9 00 SBCIM $00 

0913: OC7D 85 FB STAZ POINTH 

0914: OC7F 60 RTS 

0915: 

0916: ##*% END OF ADJPNT **# 

ID=B4 

R 

x 

0001: 1000 ORG $1000 

0002: 

0003: 

ooo4: Me 06 Me AG 0 He HE HE HE HEHE aE Ha 
0005: #%# MAIN PROGRAM OF THE PRINTER MONITOR #***# 
0006: $5 HEE HG EEG HE HEHE He aE HG Ea 
0007: 

0008: 

0009: COMMANDS OF THE PRINTER MONITOR: 

3010: 

0011: > “~° DECREMENT THE CURRENT ADDRESS BY ONE 
0012: > °+° INCREMENT THE CURRENT ADDRESS BY ONE 
0013: > “SPACE” 1) PRINT THE ADDRESS IN THE INPUT BUFFER 


0014: 2) SHOW THE DATA OF THIS ADDRESS 


0015: > °.° STORE INPUT DATA AT THE CURRENT ADDRESS 

0016: > "R’ START PROGRAM EXECUTION AT THE CURRENT ADDRESS 
0017: > “L” LIST THE CONTENTS OF ALL CPU-REGISTERS 

0018: > “P” PRINT OUT THE LAST PROGRAM CONTER 

0019: > “M’ PRINT A HEXDUMP SPECIFIED BY THE INPUT PARAMETER 
0020: > °G’ READ A DATA BLOCK WITH A CERTAIN ID FROM TAPE 
0021: > °S” STORE A DATA BLOCK BETWEEN SA AND EA-1 ON TAPE 
0022: 

0023: 

0024: 

0025: 1000 D8 INITPR CLD RESET SEQUENCE OF THE PRINTER PROGRAM 
0026: 1001 78 SEI IRQ LINE IS DISABLED 

0027: 1002 AQ 67 LDAIM $67 

0028: 1004 8D 82 iA STA PBD PBD: 01100111 

0029: 1007 AQ 00 LDAIM $00 

0030: 1009 8D 80 1A STA PAD PAD: 00000000 

0031: 100C A2 FE LDXIM $FE RESET BIT TIME COUNTER 

0032: 100E 8E 5A 1A STX CNTL 

0033: 1011 E8 INX 

0034: 1012 8E 5B 1A STX CNTH 

0035: 1015 9A TXS RESET COMPUTER STACK POINTER 

0036: 1016 86 F2 STXZ SPUSER RESET USER STACK POINTER 

0037: 1018 AQ TF LDAIM $7F 

0038: 101A 8D 81 1A STA PADD PADD: 01111111 

0039: 101D 8D 83 1A STA PBDD PBDD: 01111111 

OO40: 1020 A2 02 LDXIM $02 

0041: 1022 8E 59 TA STX STPBIT TRANSMIT NONE PARITY & ONE STOP BIT 
OO42: 1025 AQ 5F LDAIM LABJUN 

0043: 1027 8D 7C 1A STA BRKT SETUP BREAK VECTOR 

OO44: 102A AQ 10 LDAIM LABJUN /256 

0045: 102C 8D 7D 1A STA BRKT +01 

0046: 102F AQ CF LDAIM STEP SETUP STEP BY STEP VECTOR 


201 


OOUT: 
OO4s: 
CO4S: 
0050: 
0051: 
0052: 
0053: 
0054: 
0055: 
0056: 
0057: 
0058: 
0059: 
0060: 
0061: 
0062: 
0063: 
0064: 
0065: 
0066: 
0067: 
0068: 
0069: 
0070: 
0071: 
0072: 
0073: 
OO74: 
0075: 
0076: 
0077: 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: 
0087: 
0088: 
0089: 
0090: 
00914: 
0092: 


0093: 
~ 0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
0100: 
0101: 
0102: 
0103: 
0104: 
0105: 
0106: 
0107: 
0108: 
0109: 
0110: 
O111: 
O12: 
0113: 
0714: 
0115: 
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1031 
1034 
1036 


1039 
103C 
103E 
1041 
1044 
1047 
1O4UA 
104D 
1050 
1053 
1055 
1058 
105B 
105D 


105F 
1062 
1065 
1067 
1068 


106A 
106D 


1070 


1073 


1075 
1077 
107A 
107D 


1080 
1082 


- 4084 


1087 
108A 


108D 
108F 
1091 
1093 


1095 
1097 
1099 
109C 


109F 
10A1 
10A3 
10A5 
10A7 
10A9 
1OAC 
1OAF 


10B2 
10B4 
10B6 
10B8 
10B9 
10BB 
10BC 
10BE 
10BF 


8D 
8D 


2c 
30 
20 
4E 
6E 
AD 
8D 
AD 
8D 
A2 
20 
20 


DO 


20 
20 
A2 
9A 
86 


20 
20 


TA 
14 
7B 


80 
FB 
EO 
5F 
5E 
5E 
5C 
5F 


08 
03 
BE 
7F 
Al 


46 
FF 
F2 


59 
68 


AE 


2B 
09 
13 


6A 


2D 
09 
TA 
F8 
6A 


20 
OE 
F8 
FA 
F9 
FB 
F8 
6A 


2E 
OF 
F8 
00 
FA 
13 
F8 
6A 


52 
13 
F2 
FB 
FA 


FY 


1A 
1A 
TA 


12 
1A 
1A 
1A 
1A 
1A 
1A 


13 
12 


12 
11 


12 
te 


12 


12 
11 
10 


11 
10 


12 
11 
10 


STRTBT 


LABJUN 


RESALL 


READCH 


PLU 


MINUS 


SPACE 


PNT 


RUN 


STA 
LDAIM 
STA 


BIT 
BMI 
JSR 
LSR 
ROR 
LDA 
STA 
LDA 
STA 
LDXIM 
JSR 
JSR 
CMPIM 
BNE 


JSR 
JSR 
LDXIM 
TXS 
STXZ 


JSR 
JSR 


JSR 


CMPIM ° 


BNE 
JSR 
JSR 
JMP 


CMPIM ~ 


BNE 
JSR 
JSR 
JMP 


CMPIM 
BNE 
LDAZ 
STAZ 
LDAZ 
STAZ 
JSR 
JMP 


NMI 
STEP 
NMI 


PAD 
STRTBT 
COMTIM 
TIMH 
TIML 
TIML 
CNTHL 
TIMH 
CNTHH 
$08 
DELHBT 
RECD 
$7F 
INITPR 


JUNIOR 
CRLF 
$FF 


SPUSER 


RESPAR 
RESIN 


RECCHA 


+ 
MINUS 

INCPNT 
PRBUFS 
RESALL 


SPACE 

DECPNT 
PRBUFS 
RESALL 


¢ 


PNT 
INL 
POINTL 
INH 
POINTH 
PRBUFS 
RESALL 


CMPIM ° 


BNE 
LDAZ~ 
LDYIM 
STALY 
JSR 
JSR 
JMP 


CMPIM 
BNE 
LDXZ 
TXS 
LDAZ 
PHA 
LDAZ 
PHA 
LDAZ 


RUN 
INL 
$00 
POINTL 
INCPNT 
PRBUFS 
RESALL 


“R 
LIST 
SPUSER 
POINTH 
POINTL 


PREG 


/256 
+01 


WAIT FOR A START BIT 

COMPUTE THE START BIT TIME 

DIVIDE BY 2 

SAVE HALF START BIT TIME 

GET THE REST OF THE CHARACTER 

WAS IT THE RUBOUT CHARACTER? 

PRINT “JUNIOR™ 

RESET STACK POINTER WHEN A BREAK OCCURS 
RESET PARAMETER BUFFER 


RESET INPUT BUFFER 


WAIT FOR A CHARACTER 


INCREMENT CURRENT ADDRESS 
OPEN NEXT CELL 


DECREMENT CURRENT ADDRESS 
OPEN PREVIOUS CELL 


OUTPUT THE ADDRESS 
IN THE INPUT BUFFER 


OPEN CURRENT CELL 


STORE CURRENT DATA BYTE IN MEMORY 
OPEN NEXT CELL 


START PROGRAM EXECUTION 
AT THE CURRENT DISPLAYED ADDRESS 


0116: 
0117: 
0118: 
0119: 
0120: 
07121: 
0122: 
0123: 
0124: 
0125: 
0126: 
0127: 
07128: 
0729: 
0130: 
0131: 
0132: 
0133: 
0134: 
0135: 
0136: 
0137: 
0138: 
0139: 
O140: 
0141: 
0142: 
0143: 
0144; 
O145: 
0146: 
O47: 
0148: 
0149: 
0150: 
0151: 
0152: 
0153: 
0154; 
0155: 
0156: 
0157: 
0158: 
0159: 
0160: 
0161: 
0162: 
0163: 
0164: 
0165: 
0166: 
0167: 
0168: 
0169: 
0170: 
OTs 
0172: 
0173: 
O74: 
0175: 
0176: 
O177T: 
0178: 
0179: 
0180: 
0181: 
0182: 
07183: 
0184: 


10C 1 
10C2 
10C4 
10C6 
10C8 


10C9 
10CB 
10CD 
10CF 
10D2 
10D4 
10D7 
10D9 
10DC 
10DE 
10E 1 
10E3 
10E6 
10E8 
1O0EB 
10ED 
10FO 
10F2 
10F5 
10F7 
10FA 
10FC 
10FF 
1701 
1104 
1106 
17109 
110B 
110E 
1171 
1113 
116 
119 


eb ok 


111C 


111F 
1121 
1123 
1125 
1427 
1129 
112B 
112E 


1131 
1133 
1135 
1137 
113A 
113D 


113F 


1142 
1143 
1146 
1149 
114C 
114F 
1151 
1154 


48 
A6 
AY 
A5 
40 


cg 
DO 
AO 
20 
A5 
20 
AO 
20 
A5 
20 
AO 
20 
A5 
20 
AO 
20 
A5 
20 
A5 
20 
AO 
20 
AQ 
20 
A5 
20 
AO 
20 
20 
AQ 
20 


20 
4C 


4C 


C9 
DO 
A5 
85 
A5 
85 
20 
4C 


C9 
DO 
AO 
20 
20 
10 


4C 


38 
AD 
ED 
AD 
ED 


90 
A2 


FS 
F3 


4C 


14 
D6 
F3 
8F 
1A 
D6 
Fy 
8F 
20 
D6 
F5 
8F 


26 
D6 


FQ 
8F 
EF 
8F 
2C 
D6 
01 
8F 
F2 
BF 


D6 
28 
38 
D6 
F3 
6A 


BO 


50 
OE 
EF 
FA 
FO 
FB 
F8 
6A 


4D 
ET 
52 


87 
03 


5F 


11 


12 


11 


12 


11 


12 


11 


12 


12 
11 


—_— «2 
{a3 


10 


TA 
1A 
1A 
1A 


17 


LIST 


CONTIN 


PC 


MATRIX 


MATD 


MATF 


PHA 
LDXZ 
LDYZ 
LDAZ 
RTI 


CMPIM 
BNE 
LDYIM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDAZ 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDAIM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
JSR 
LDYIM 
JSR 


JSR 
JMP 


JMP 


CMPIM 
BNE 
LDAZ 
STAZ 
LDAZ 
STAZ 
JSR 
JMP 


CMPIM 
BNE 
LDYIM 
JSR 
JSR 
BPL 


JMP 


SEC 
LDA 
SBC 
LDA 
SBC 
BCC 


JSR 
LDXIM 


XREG 
YREG 
ACC 


"L 

PC 
$14 
MESSY 
ACC 
PRBYT 
$1A 
MESSY 
YREG 
PRBYT 
$20 
MESSY 
XREG 
PRBYT 
$26 


MESSY 


PCH 
PRBYT 
PCL 
PRBYT 
$2C 
MESSY 
$01 
PRBYT 
SPUSER 
PRBYT 
$32 
MESSY 
SHOWPR 
$38 
MESSY 
PRSP 
RESALL 


GETTAP 


“P 
MATRIX 
PCL 
POINTL 
PCH 
POINTH 
PRBUFS 
RESALL 


“M 
CONTIN 
$52 
MESSY 
INPAR 
MATF 


LABJUN 


PARBL 
PARAL 
PARBH 
PARAH 
MATD 
CRLF 
$06 


ACC: 


PC : 


Sr. 


PR : 
PRINT OUT FLAGS 


NV BDIZC 


RESTORE LAST PROGRAM COUNTER 


OPEN CURRENT CELL 


HEXDUMP: 
READ PARAMETERS 


RETURN, IF INVALID CHARACTER 
VALID INPUT PARAMETERS? 


PARA < PARB? 
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0185: 
0186: 
0187: 
0188: 
0189: 
0190: 
0191: 
0192: 
0193: 
0194: 
0195: 
0196: 
0197: 
0198: 
0199: 
0200: 
0201: 
0202: 
0203: 
0204: 
0205: 
0206: 
0207: 
0208: 
0209: 
0210: 
0211: 
0212: 
0213: 
0214: 
0215: 
0216: 
02172 
0218: 
0219: 
0220: 
0221: 
0222: 
0223: 
0224; 
0225: 
0226: 
0227: 
0228: 
0229: 
0230: 
0231: 
0232: 
0233: 
0234: 
0235: 
0236: 
0237: 
0238: 
0239: 
O240: 
0241: 
O242: 
0243: 
O244: 
O245: 
O246: 
O247: 
0248; 
0249: 
0250: 
025%: 
0252: 
0253: 


1156 
1159 
115A 
115C 


115E 
1158 
1162 
1165 
1168 
1169 
116B 
116D 
1170 
1172 
1175 


477 
117A 
117C€ 
117E 
1181 
1183 
1186 
1188 


118B 
118C 
118F 
1191 
1194 
1196 
1198 
119B 


119E 
11A0 
11A2 
11A5 
11A8 
11AB 
11AC 
11AE 


11BO 
11B2 
11B4 
11B7 
11B9 


TIBC 


11BF 
1101 
11C3 
11C6 
11C8 


11CB 
11CE 
11D0 


11D3 


204 


20 
CA 
DO 
AQ 


98 
20 
20 
20 
c8 
co 
DO 
AD 
85 
AD 
85 


20 
A2 
A5 
20 
A5 
20 
AO 
20 


38 
AD 
E5 
AD 
E5 
BO 
20 
4c 


AO 
Bi 
20 
20 
20 
CA 
DO 
FO 


C9 
DO 
20 


4C 
kC 


C9 
DO 
20 
30 
4C 


20 
DO 
KC 


4c 


F3 


FA 
00 


9B 
F3 
F3 


10 
Fi 
63 
FA 
64 
FB 


E8 
10 
FB 
BF 


8F 
17 
D9 


65 
FA 
66 
FB 
06 
E8 
5F 


00 
FA 
8F 
F3 
13 


DD 
CT 


47 
OB 
8A 
03 
6A 


oe 


53 
08 
3B 
FY 
6A 


6F 
03 
70 


6A 


11 


12 
11 
11 


1A 


1A 


11 


12 
12 
11 


TA 


TA 


1e 
11 
12 


14 
10 


10 


14 
10 
12 
10 


10 


MATG 


MATH 


MATJ 


MATK 


MATL 


GETTAP 


GETERR 
SAVID 


VALNUM 


VNA 


JSR 
DEX 
BNE 
LDYIM 


TYA 
JSR 
JSR 
JSR 
INY 
CPYIM 
BNE 
LDA 
STAZ 
LDA 
STAZ 


JSR 
LDXIM 
LDAZ 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 


SEC 
LDA 
SBCZ 
LDA 
SBCZ 
BCS 
JSR 
JMP 


LDYIM 
LDAIY 
JSR 
JSR 
JSR 
DEX 
BNE 
BEQ 


CMPIM 
BNE 
JSR 
BMI 
JMP 


JMP 


CMPIM 
BNE 
JSR 
BMI 
JMP 


JSR 
BNE 
JMP 


JMP 


PRSP 


MATG 
$00 


PRNIBL 
PRSP 
PRSP 


$10 
MATH 
PARAL 
POINTL 
PARAH | 
POINTH 


CRLF 
$10 
POINTH 
PRBYT 
POINTL 
PRBYT 
$17 

ME 


PARBL 
POINTL 
PARBH 
POINTH 
MATL 
CRLF 
LABJUN 


$00 
POINTL 
PRBYT 
PRSP 
INCPNT 


MATK 
MATJ 


* 


G 
SAVID 
GETID 
GETERR 
RESALL 


LABJUN 
‘S 
VALNUM 
SAID 
GETERR 
RESALL 


HEXNUM 
VNA 
READCH 


RESALL 


RESET COLUMN COUNTER 


OUTPUT COLUMNS 


PRINT COLUMS 0...F 


SETUP MATRIX POINTER 


OUTPUT CURRENT MATRIX ADDRESS 


HEXDUMP FINISHED? 


HEXDUMP IS FINISHED 


FETCH CURRENT DATA BYTE 
OUTPUT CURRENT DATA BYTE 


READ DATA FROM TAPE SPEC. BY ID 
ILLEGAL CHARACTER? 
NORMAL EXIT 


NO COMMAND KEY WAS DEPRESSED 
STORE DATA ON TAPE SPECIFIED BY THE PARAMETERS 


ILLEGAL PARAMETER WAS ENTERED 


INPUT DATA TO BUFFER 


RERMRARRELEAAKERRAE ERE EEE EE EE HEE EEE EEE EH 


*## SUBROUTINES OF THE PRINTER MONITOR *#* 
RHHEHELHEAELAAEAERRA AERA H RENEE EE ES HEH 


0254: 
0255: 
0256: 
0257: 
0258: 
0259: 
0260: 
0261: 
0262: 
0263: 
0264: 
0265: 
0266: 
0267: 
0268: 
0269: 
0270: 
O27 15 
0272: 
0273: 
0274: 
0275: 
0276: 
0277: 
0278: 
0279: 
0280: 
0281: 
0282: 
0283: 
0284: 
0285: 
0286: 
0287: 
0288: 
0289: 
0290: 
0291: 
0292: 
0293: 
0294; 
0295: 
0296: 
0297: 
0298: 
0299: 
0300: 
0301: 
0302: 
0303: 
0304: 
0305: 
0306: 
0307: 
0308: 
0309: 
0310: 
0311: 
0312: 
031743: 
0314: 
0315: 
0316: 
0317: 
0318: 
0319: 
0320: 
0321: 
0322: 


11D6 


11D9 
11DC 
11DE 
1TEO 
11E3 
11E4 


11E7 


11E8 
TIEA 
11ED 


11EF 
11F2 


11F3 
T1IF5 


11F8 
11FB 
11FD 
1200 
1202 
1205 
1208 
120A 
120C 
120F 
1212 


1213 
1215 
1217 


1219 


121A 
121B 
121D 
121F 
4221 
1223 
1225 
1227 


1228 
122A 


20 


B9 
C9 
FO 
20 
C8 
4C 


60 


AQ 
20 
Ag 


20 
60 


AQ 
4C 


20 
A5 
20 
A5 
20 
20 
AO 
B1 
20 
20 
60 


E6 
DO 
E6 


60 


A5 
8D 


E8 


BD 
03 
O7 
34 


D9 


OD 
34 
OA 


34 


20 
EF 


E8 


8F 
FA 
8F 
F3 
00 
FA 
8F 
F3 


FA 
02 
FB 


FA 
01 


FB 


00 
FB 


F 1 


11 
13 


‘3 
11 


13 


11 


67 1A 


MESSY PRINTS A MESSAGE, POINTED BY Y REGISTER 


MESSY 


ME 


MESEND 


CRLF PRINT CARRIAGE 
PRSP PRINT A 


CRLF 


CLEND 


PRSP 


PRBUFS 


PRBUFS 


INCPNT 


INCPNT 


IP 


DECPNT 
DECPNT 


SHOWPR 


SHOWPR 


JSR CRLF PRINT A CR&LF 
LDAY MESS LOAD CHARACTERS 
CMPIM $03 ETX CHARACTER ? 
BEQ MESEND 

JSR PRCHA CHARACTER TO TTY 
INY 

JMP ME 

RTS 


RETURN & LINE FEED 
SPACE 


LDAIM 
JSR 
LDAIM 


$0D 
PRCHA 
$OA 


OUTPUT CR 


JSR PRCHA OUTPUT LF 


RTS 


LDAIM 
JMP 


$20 
CLEND OUTPUT A SPACE 


OUTPUT ADDRESS AND DATA 


JSR CRLF 

LDAZ POINTH 

JSR PRBYT OUTPUT HIGH ORDER ADDR 
LDAZ POINTL 

JSR PRBYT OUTPUT LOW ORDER ADDR 
JSR PRSP 

LDYIM $00 

LDALY POINTL FETCH DATA FROM MEMORY 
JSR PRBYT 

JSR PRSP 

RTS 


INCRMENT ADDR POINTER BY ONE 


INCZ POINTL 
BNE iP 
INCZ POINTH 


RTS 


DECREMENT ADDR POINTER BY ONE 


SEC 

LDAZ POINTL 16 BIT SUBTRACTION 
SBCIM $01 

STAZ POINTL 

LDAZ POINTH 

SBCIM $00 

STAZ POINTH 

RTS 


SHOW THE CONTENTS OF THE P REGISTER 


LDAZ PREG 
STA PRTEMP 
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0323: 
0324: 
0325: 
0326: 
0327: 
0328: 
0329: 
0330: 
0331: 
0332: 
0333: 
0334: 
0335: 
0336: 
0337: 
0338: 
0339: 
0340: 
O341: 
0342: 
0343: 
O344:; 
0345: 
0346: 
0347: 
0348; 
0349: 
0350: 
0351: 
0352: 
0353: 
0354: 
O355: 
0356: 
0357: 
0358: 
0359: 
0360: 
0361: 
0362: 
0363: 
0364: 
0365: 
0366: 
0367: 
0368: 
0369: 
OS70: 
O371: 
O3i2s 
0373: 
0374: 
0375: 
0376: 
0377: 
0378: 
0379: 
0380: 
0381: 
0382: 
0383: 
0384: 
0385: 
0386: 
0387: 
0388: 
0389: 
0390: 
0391: 
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122D 


122F 
1232 
1234 
1236 
1239 
123A 
123C 


123D 
123F 
42H2 
1243 
1245 


1246 


1248 
124B 
124E 


124F 
1251 


1254 
1256 


1259 
125B 
125E 
1261 
1264 
1267 


1268 
126A 
126C 
126E 


126F 
1272 
1274 


1276 
1278 
127A 
127B 
127D 
127F 
1281 
1283 


1284 
1286 


A2 


OF 
90 
AQ 
20 
CA 
DO 
60 


Ag 
20 
CA 
DO 
60 


AO 


20 
20 
60 


AO 
UC 


AO 
4C 


AQ 
8C 
8C 
8C 
8C 
60 


AO 
By 
84 
60 


08 


67 
09 
01 
9B 


r3 


00 
9B 


EA 


00 


D6 
E8 


07 
48 


OE 
48 


00 


63 
64 


65 
66 


00 
F8 


F9 


1E 
04 
FB 
FQ 
FB 


F8 
00 


46 
D6 


1A 


12 


11 
11 


1A 
1A 


1A 
1A 


14 


11 


LDXIM $08 BIT COUNTER 


SPRA ASL PRTEMP SHIFT OUT THE BITS 
BCC SPRB IS IT A O OR 1 ? 


LDAIM $01 . 
JSR PRNIBL PRINT A “1 
DEX 
BNE SPRA ALL BITS PRINTED ? 
RTS 

SPRB LDAIM $00 
JSR PRNIBL PRINT A “O° 
DEX | 
BNE SPRA ALL BITS PRINTED ? 
RTS 


JUNIOR PRINT ‘JUNIOR’ 
EDITOR PRINT ‘EDITOR’ 
ASSEM PRINT ‘ASSEMBLER’ 


JUNIOR LDYIM $00 


JUN JSR MESSY 
JSR CRLF 
RTS 


EDITOR LDYIM $07 
JMP JUN 


ASSEM LDYIM $0E 
JMP JUN 
RESET SUBROUTINES 


RESPAR LDYIM $00 
STY PARAL 
STY PARAH 


Siz PARBL 
STY PARBH 
RTS 

RESIN LDYIM $00 
STYZ INL 
STYZ INH 
RTS 


HEXNUM >CONVERT AN ASCII CHAR. TO A HEX NIBBLE 
>SHIFT HEX DATA NIBBLE INTO BUFFER 
>PRINT °“WHAT?° IF CHARACTER WAS NOT VALID 
>RETURN WITH Z=1, IF VALID CHARACTER 
>RETURN WITH N=1, IF NOT VALID CHARACTER 


HEXNUM JSR ASHETT ASCII HEX CONVERSION 
BMI HNUB NOT VALID ? 
LDXIM $04 SET NIBBLE COUNTER 


HNUA ASLZ INL 


ROLZ INH 

DEX 

BNE HNUA 

ORAZ INL NIBBLE TO INPUT BUFFER 
STAZ INL 

LDYIM $00 SET Z FLAG 

RTS 


HNUB LDYIM $46 
JSR MESSY ‘WHAT?° 


0392: 
0393: 
0394: 
0395: 
0396: 
0397: 
0398: 
0399: 
O400: 
O401: 
O402: 
O403: 
O404: 
O405: 
0406: 
O407: 
0408: 
0409: 
0410: 
0411: 
0412: 
0413: 
O414: 
0415: 
0416: 
O417: 
0418: 
0419: 
0420: 
O421: 
O422: 
0423: 
O424: 
0425: 
0426: 
0427: 
0428: 
0429: 
0430: 
0431: 
0432: 
0433: 
O434: 
0435: 
0436; 
O437: 
0438: 
0439: 
O440: 
O441: 
O42: 
O443: 
O444: 
O445: 
O46: 
O4WT: 
O448: 
O449: 
O450: 
O45 1: 
0452: 
0453: 
O454: 
0455: 
O456: 
O457: 
0458: 
0459: 
O460: 


1289 
128C 
128E 


128F 
1290 
1291 
1292 
1293 
1294 
1297 
129A 


129B 
129D 
12A0 
12A3 


12A4 
12A6 
12A7 
T2A9 


12AB 
12AD 


12AE 
12B1 
12B3 
12B6 
12B8 


12BB 


12BE 
1201 
1203 
12C4 
1207 
12C8 
12CA 


12CD 
12CE 
12D1 
12D2 


12D4 
12D7 
T2DA 
12DC 
12DF 


12E0 


20 E8 11 


AO 
60 


48 
4A 
KA 
KA 
4A 
20 
20 
68 


29 
20 
20 
60 


C9 
18 
30 
69 


69 
60 


2C 


8E 
A2 
20 


20 


2c 
10 
38 
6E 
CA 
DO 
4c 


18 
6E 


DO 


20 
AD 
29 
AE 
60 


18 


FF 


AY 
34 


OF 
A4 
34 


OA 


02 
O7 


30 


80 
FB 
61 
08 
03 


12 


80 
OA 


62 


Fi 
D4 


62 
E7 


12 
62 
ce 
61 


12 
13 


12 
13 


1A 
1A 
13 
13 
1A 


12 


1A 


ch oh 
mA) 


— 
— 


JSR CRLF 
LDYIM $FF SET N FLAG 
RTS 


PRBYT >CONVERT AN BYTE STORED IN ACCU TO 


PRBYT 


PRNIBL 


NIBASC 
NIBASC 


NA 


RECCHA 


RECCHA 


RECA 


RECD 


RECB 


RECC 


TWO ASCII CHARACTERS AND PRINT THEM 


PHA SAVE BYTE 

LSRA GET UPPER NIBBLE 
LSRA 

LSRA 

LSRA 


JSR NIBASC NIBBLE TO ASCII CONVERSION 
JSR PRCHA PRINT UPPER NIBBLE 
PLA GET BYTE AGAIN 


ANDIM $0F GET LOWER NIBBLE 
JSR NIBASC 

JSR PRCHA PRINT LOWER NIBBLE 
RTS 


>CONVERT A HEX DATA NIBBLE TO AN ASCII CHARACTER 


CMPIM $0A NUMBER OR LETTER ? 
CLC 

BMI NA 

ADCIM $07 


ADCIM $30 
RTS 


>RECEIVE 1 ASCII CHARACTER FROM PRINTER 
>RETURN WITH ASCII CHARACTER IN ACCU 
>SAVE X REGISTER 


BIT PAD WAIT FOR START BIT 
BMI RECCHA 

STX TEMPB SAVE INDEX X 

LDXIM $08 BIT COUNTER IS 8 
JSR DELHBT DELAY HALF BIT TIME 


JSR DELBIT DELAY ONE BIT TIME 


BIT PAD ONE/ ZERO CHECK 
BPL RECB BRANCH IF ZERO 


SEC BIT IS “1° 

ROR CHA ROTATE CARRY INTO CHARACTER 
DEX SET UP FOR NEXT BIT 

BNE RECA ALL BITS READ? 

JMP  RECC 

CLS BIT IS ‘0° 

ROR CHA 

DEX 

BNE RECA 


JSR DELBIT WAIT FOR STOP BIT TIME 
LDA CHA 
ANDIM $7F BIT 7 MUST BE ZERO 
tre TEMPB RESTORE INDEX X 
S 


COMTIM >COMPUTE BIT TIME 


COMTIM 


CLC 
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O461: 
O462: 
0463: 
O464: 
0465: 
O466: 
O467: 
0468: 
0469: 
O470: 
O47 1: 
O472: 
0473: 
O474: 
O475: 
O476: 
OTT: 
O478: 
0479: 
O480: 
0481: 
O482: 
0483: 
O484: 
0485: 
0486: 
O487: 
O488: 
0489: 
0490: 
O491: 
0492: 
0493: 
O4"94: 
0495: 
O496: 
O497: 
0498: 
0499: 
0500: 
0501: 
0502: 
0503: 
0504: 
0505: 
0506: 
0507: 
0508: 
0509: 
0510: 
0511: 
0512: 
0513: 
05174: 
0515: 
0516: 
0517: 
0518: 
0519: 
0520: 
0521: 
0522: 
0523: 
0524: 
0525: 
0526: 
0527: 
0528: 
0529: 
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12E1 
12E4 
12E6 
12E9 
12EC 
12EE 
12F 1 
12F4 
12F6 
12F9 
12FC 
12FF 
1302 


1303 
1306 
1309 
130C 
130F 


1312 
1315 
1318 
131B 


131E 
13 1F 
1322 
1324 
1327 
132A 
132C 
132F 
1330 
1331 
1333 


1334 
1337 
133A 
133D 
133F 
1342 
1345 


1347 
134A 
134C 
134F 
1351 


1354 
1357 
1358 
135A 


135D 
1360 
1362 
1365 
1368 


AD 
69 
8D 
AD 
69 
8D 
2c 
10 
AD 
8D 
AD 
8D 
60 


AD 
8D 
AD 


AC 


AD 
8D 
AD 
8D 


38 
AD 
E9 
8D 
AD 


8D 
EA 
EA 
BO 
60 


8E 
8D 
AD 
29 
8D 
20 
A2 


HE 
90 
AD 
09 
8D 


20 
CA 
DO 
AE 


AD 
8D 


20 
CA 


5A 
01 
5A 
5B 
60 


80 
EA 
5A 
5E 
5B 
SE 


5C 
5E 
5D 
oF 
1E 


5A 
5E 
5B 
5F 


5E 
01 
5E 


SF 
5F 


EB 


60 


82 
FE 
82 
12 


07 
62 
82 
01 
82 
12 


ED 
59 


82 


82 
12 


1A 
1A 


1A 
1A 


1A 
TA 


1A 
1A 


1A 
TA 
1A 
1A 
13 


1A 


1A 
1A 


1A 
TA 


TA 
1A 


1A 


1A 
1A 
1A 
1A 
13 
1A 
TA 
1A 


13 


1A 
1A 


1A 
13 


DELBIT 
DELHBT 


DELHBT 


DELBIT 


CNTDN 


LDA 
ADCIM 
STA 
LDA 
ADCIM 
STA 
BIT 
BPL 
LDA 
STA 
LDA 
STA 
RTS 


CNTL 16 BIT ADD 

$01 

CNTL 

CNTH 

$00 

CNTH 

PAD START BIT FINISHED ? 
COMTIM 

CNTL SET UP FOR 

TIML HALF BIT TIME COMPUTATION 
CNTH 

TIMH 


>DELAY 1 BIT TIME 
>DELAY 1/2 BIT TIME 


LDA 
STA 
LDA 
STA 
JMP 


LDA 
STA 
LDA 
STA 


SEC 
LDA 
SBCIM 
STA 
LDA 
SBCIM 
STA 
NOP 
NOP 
BCS 
RTS 


CNTHL FETCH 1/2 BIT TIME 

TIML 

CNTHH 

TIMH 

CNTDN START WITH BIT COUNT DOWN 


CNTL FETCH 1 BIT TIME 
TIML 
CNTH 
TIMH 


TIML 16 BIT SUBTRACTION 
$01 COUNT DOWN 
TIML 
TIMH 
$00 
TIMH 
EQUALIZE 4 MICRO SEC 


CNTDN COUNT DOWN FINISHED ? 


PRCHA >TRANSMIT AN ASCII CHARACTER STORED IN 
ACCU TO PRINTER 
>SAVE INDEX X 


PRCHA 


PRA 


PRB 


PRD 


STX 
STA 
LDA 
ANDIM 
STA 
JSR 
LDXIM 


LSR 
BCC 
LDA 
ORAIM 
STA 


JSR 
DEX 
BNE 
LDX 


LDA 
ORAIM 
STA 
JSR 
DEX 


TEMPA SAVE INDEX X 

CHA 

PBD 

$FE TRNSMIT START BIT 

PBD 

DELBIT DELAY OF START BIT 

$07 SET UP FOR 7 DATA BITS 


CHA SHIFT OUT CHARACTER 
PRC BRANCH IF ‘0° 
PBD 
$01 OUTPUT A LOG 
PBD 


# e 


1 


DELBIT DELAY 1 BIT TIME 

SET UP FOR NEXT BIT 
PRA ALL BITS TRANSMITTED ? 
STPBIT X := AMOUNT OF STOP BITS + 1 


PBD 
$01 FIRST NONE PARITY 


PBD AND THEN 1 STOP BIT 
DELBIT 


0530: 
0531: 
0532: 
0533: 
0534: 
0535: 
0536: 
0537: 
0538: 
0539: 
0540: 
O5414: 
0542: 
0543: 
O544: 
O545: 
O546: 
O547: 
O548: 
0549: 
0550: 
0551: 
0552: 
0553: 
0554: 
0555: 
0556: 
0557: 
0558: 
0559: 
0560: 
0561: 
0562: 
0563: 
0564: 
0565: 
0566: 
0567: 
0568: 
0569: 
0570: 
0571: 
0572: 
0573: 
O574: 
0575: 
0576: 
0577s 
0578: 
0579: 
0580: 
0581: 
0582: 
0583: 
0584: 
0585: 
0586: 
0587: 
0588: 
0589: 
0590: 
0591: 
0592: 
0593: 
0594: 
0595: 
0596: 
0597: 
0598: 


1369 
136B 
136E 
1370 
1373 


1374 
1377 
1379 


137C 
137F 
1381 
1384 


1387 
138A 
138C 
138E 
1391 
1393 


1395 
1397 
139A 
139C 
139F 


T3A2 
13A5 
13A7 
13A9 
13AC 
13AE 


13B0 
13B2 
13B5 
13B7 
13BA 


13BC 


13BD 
13BE 
13BF 
13C0 
13C1 
13C2 
13C3 
13C4 
13C5 
13C6 
13C7 
13C8 
13C9 
13CA 
13CB 
13CC 
13C€D 
13CE 
13CF 
13D0 
13D1 


DO 
2c 
10 
AE 
60 


2c 
10 
6C 


AD 
29 


KC 


20 
C9 
FO 
20 
30 
FO 


A5 
8D 
A5 
8D 
20 


20 


FO 
20 
30 
FO 


A5 
8D 
A5 


AO 
60 


WA 
20 
4E 
49 
AF 
oe 
03 
45 
44 
49 
54 
4F 
52 


41 
53 


45 
4D 
03 
41 


F2 
80 


60 


80 
FB 
TC 


82 
FE 


54 


AE 
2c 
07 
6F 
29 
F2 


F8 
63 
F9 


68 


AE 
OD 
07 
6F 
OE 
Fe 


F9 
66 
F8 
65 
00 


TA 
TA 


12 


12 


1A 


1A 
12 


12 


12 


1A 
1A 


BNE PRD 

BIT PAD TEST FOR BREAK 
BPL BRKTST 

nee TEMPA RESTORE INDEX X 


BRKTST BIT PAD KEY RELEASED ? 
BPL BRKTST 
JMI BRKT JUMP TO AN USER SELECTABLE VECTOR 


PRC LDA PBD 
ANDIM $FE OUTPUT A LOG ‘0’ 
STA PBD 
JMP PRB 


INPAR >PARAMETER INPUT OF MATRIX 


INPAR JSR RECCHA WAIT FOR A CHARACTER 
CMPIM , IS IT A COLON ? 
BEQ IPA 
JSR HEXNUM FILLUP INPUT BUFFER 
BMI IPD RETURN, IF NOT VALID 
BEQ INPAR ELSE CONTINUE 


IPA LDAZ INL INPUT TO PARAMETER BUFFER 


STA PARAL 
LDAZ INH 

STA PARAH 
JSR RESIN 


IPB JSR RECCHA WAIT FOR A CHARACTER 
CMPIM $0D WAS IT A CARRIAGE RETURN ? 


BEQ IPC 
JSR HEXNUM 
BMI IPD VALID CHARACTER ? 


BEQ IPB 


IPC LDAZ INH INPUT TO PARAMETER BUFFER 
STA PARBH 
LDAZ INL 
STA PARBL 
LDYIM $00 


IPD RTS 


STRING LOOKUP TABLE 


* 


MESS = J Y = 00 
= “U 
= °N 
= “oi 
= “O 
= °R 
= $03 
= E = 07 
= °D 
= or 
= T 
= “O 
= °R 
= $03 
= A Y = OE 
= “5 
= ‘Ss 
= "E 
= °M 
= $03 
= "A Y= 14 
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0599: 
0600: 
0601: 
0602: 
0603: 
0604: 
0605: 
0606: 
0607: 
0608: 
0609: 
0610: 
0611: 
0612: 
0613: 
0614: 
0615: 
0616: 
0617: 
0618: 
0619: 
0620: 
0621: 
0622: 
0623: 
0624: 
0625: 
0626: 
9627: 
0628: 
0629: 
0630: 
0631: 
0632: 
0633: 
0634: 
0635: 
0636: 
0637: 
0638: 
0639: 
0640: 
0641: 
0642: 
0643: 
O644: 
0645: 
0646: 
0647: 
0648: 
0649: 
0650: 
0651: 
0652: 
0653: 
0654: 
0655: 
0656: 
0657: 
0658: 
0659: 
0660: 
0661: 
0662: 
0663: 
0664: 
0665: 
0666: 
0667: 
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13D2 
13D3 
13D4 
13D5 
13D6 
13D7 
13D8 
13D9 
13DA 
13DB 
13DC 
13DD 
13DE 
13DF 
13E0 
13E1 
13E2 
13E3 
13E4 
13E5 
13E6 
13E7 
13E8 
13E9 
13EA 
13EB 
13EC 
13ED 
13EE 
13EF 
13F0 
13F 1 
13F2 
13F3 
13F4 
13F5 
13F6 
13F7 
13F8 
13F9 
13FA 
13FB 
13FC 
13FD 
13FE 
13FF 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
140A 
140B 
140C 
140D 
140E 
140F 
14.10 
1411 
1412 
4413 
T4H14 
1415 
1416 


wie nnh Wt One dn ae Roe oo oe tO a a eae nn ee) a ee ae ee ea WH Te th om oe mo foul 


s 


W 


yk ea 
oe a) 


WW 


2 8 8 NM Nea 
oe mtg O 


oH 
ammo 
ay 


% 


Bau Oo 
Ww 


a 88 8 aR UU 


. ON Nea 
© 
Ww 


a . . . s s 


. 


. . se . 8 NA vl 
SNES AOS Re oe Se aoa — 2 


“ 


* % . 


ae 
Lad 


. . ‘ * 


® 


e 


20 


26 


2c 


32 


38 


46 


4C 


52 


0668: 
0669: 
0670: 
0671: 
0672: 
0673: 
0674: 
0675: 
0676: 
0677: 
0678: 
0679: 
0680: 
0681: 
0682: 
0683: 
0684: 
0685: 
0686: 
0687: 
0688: 
0689: 
0690: 
0691: 
0692: 
0693: 
0694: 
3695: 
0696: 
0697: 
0698: 
0699: 
0700: 
O701: 
0702: 
0703: 
O704: 
0705: 
0706: 
0707: 
0708: 
0709: 
0710: 
O711: 
0712: 
0713: 
0714: 
0715: 
0716: 
O717: 
0718: 
0719: 
0720: 
O72et: 
0722: 
0723: 
O724: 
0725: 
0726: 
O7T27: 
0728: 
0729: 
0730: 
07313 
0732: 
“0733: 
0734: 
0735: 
0736: 


1417 
1418 
1419 
141A 
141B 
141C 
141D 


1H1E 
1420 
1422 
1424 
1426 
1428 
TH2A 
142C 


142E 
1430 


1431 
1433 
1435 
1436 


1438 
143A 


143B 
143E 
1440 
1442 
1445 
1447 


1449 
144B 
144E 
1450 
1452 
T1454 
1456 
1459 
145C 
145E 
1461 
464 
1467 
TH6A 
146D 
1470 
1473 
1476 
1479 
147C 
147E 
1481 
1484 


1486 


C9 
30 


30 
C9 
30 
C9 
30 


AQ 
60 


C9 
30 
18 
69 


29 
60 


20 


FO 
20 
30 
FO 


A5 
8D 
C9 
FO 
C9 
FO 
20 
20 
30 
AD 
8D 
AD 
8D 
AD 
8D 
AD 
8D 
20 
20 


20 
20 
AQ 


60 


30 
OC 
3A 
OB 
44 
04 
47 
03 


FF 


40 
03 


09 
OF 


AE 
2C 
O07 
6F 
3F 
Fe 


F8 
79 
00 
35 
FF 
31 
68 
87 
28 
63 
70 
64 
71 
65 
72 
66 
73 
DF 
BC 
4C 
D6 
E8 
00 


12 


12 


TA 


12 
13 


1A 
1A 
1A 
1A 
1A 
1A 
1A 
1A 
09 
14 


11 
11 


ASHETT = ASCHEX 


CONVERT AN ASCII CHARACTER TO A HEX DATA NIBBLE. 


1) RETURN WITH CONVERTED HEX NUMBER IN ACCU 


2) Nex 1, IF 
3) Z=+ 1, IF 


ASHETT CMPIM 
BMI 
CMPIM 
BMI 
CMPIM 
BMI 
CMPIM 
BMI 


NOTVAT LDYIM 
RTS 


VALIT CMPIM 
BMI 
CLC 
ADCIM 


VALT ANDIM 
RTS 


SAID JSR 
CMPIM 
BEQ 
JSR 
BMI 
BEQ 


sic LDAZ 
STA 
CMPIM 
BEQ 
CMPIM 
BEQ 
JSR 
JSR 
BMI 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
LDYIM 
JSR 
JSR 
LDYIM 


SIB RTS 


NOT VALID HEX NUMBER 
VALID HEX NUMBER 


$30 IGNORE 00...2F 
NOTVAT 


$3A 
VALIT 


$41 IGNORE 3A...40 
NOTVAT 
$47 IGNORE 47...7F 


VALIT 


$FF SET N-FLAG 
ERROR EXIT 


$40 ASCII HEX CONVERSION 
VALT 


$09 
$OF 


RECCHA WAIT FOR A CHARACTER 


? 
SsIc IT WAS A DELIMITER 
HEXNUM READ PARAMETER = ID 
SIB 
SAID 


INL SAVE ID 
ID 


$00 ID = 00 & FF ARE NOT VALID 


STA 

$FF 

STA 

RESIN RESET INPUT BUFFER 

INPAR READ SA AND EA 

SIB NOT VALID CHARACTER 
PARAL SAVE ALL PARAMETERS 
SAL 

PARAH 

SAH 

PARBL 

EAL 

PARBH 

EAH 

DUMP STORE DATA ON TAPE 

RESTTY I/0 RESET 

$4C “READY ’ 

MESSY 

CRLF 

$00 NORMAL EXIT 
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0737: 


0738: 1487 AO FF SIA LDYIM $FF ERROR EXIT 

0739: 1489 60 RTS 

0740: 

O741: 

0742: 148A 20 A2 13 GETID JSR IPB READ ID 

O743: 148D 30 17 BMI GA NOT VALID PARAMETER 

O744: 148F 8D 79 1A STA ID SAVE ID 

0745: 1492 C9 FF CMPIM $FF SPECIAL ID ? 

O746: 1494 FO 11 BEQ IDPAR 

O747: 

0748: 1496 20 02 OB GB JSR RDTAPE READ DATA FROM TAPE 

0749: 1499 20 BC 14 JSR RESTTY I/O RESET 

0750: 149C AO HC LDYIM $4C “READY ~ 

0751: 149E 20 D6 11 JSR MESSY 

0752: 1441 20 E8 11 JSR CRLF 

0753: 14A4 AO OO LDYIM $00 NORMAL EXIT 

O754: 

0755: 14A6 60 GA RTS 

0756: 

0757: 14A7 AO 5C IDPAR LDYIM $5C “SA: 

0758: 1t4A9 20 D6 11 JSR MESSY 

0759: 1T4AC 20 EB 14 JSR IPBRES READ A SPECIAL ID 

0760: 14AF 30 F5 BMI GA NOT VALID PARAMETER 

0761: 14B1 8D 70 1A STA SAL SAVE START ADDRESS 

0762: 14B4 A5 FY LDAZ INH 

0763: 14B6 8D 71 1A OTA SAH 

0764: 14B9 4c 96 14 JMP GB 

0765: 

0766: 

0767: 

0768: 14BC AQ 67 RESTTY LDAIM $67 

0769: T4BE 8D 82 1A STA PBD 

0770: i14C1 AQ 00 LDAIM $00 

0771: 14C3 8D 80 1A STA PAD 

0772: 14C6 AQ 7F LDAIM $7F 

0773: 14C8 8D 81 1A STA PADD 

O774: 14CB 8D 83 1A STA PBDD 

0775: 14CE 60 RTS 

0776: 5 RE EE RG EE EE EE EH He HEE 
O777: ### STEP BY STEP PROGRAM OF THE PRINTER MONITOR *#*# 
0778: EE EE EE EE EE EE EE HE HEE HE HH 
0779: 

0780: 

0781: > THE NMI VECTOR FOR STEP BY STEP IS SET AUTOMATICALLY 
0782: > STEP SWITCH: ON POSITION 

0783: > KH AND K5 DISABLE THE SYNC SIGNAL OF THE PROCESSOR 
ee > A HARDWARE MODIFICATION IS REQIRED (SEE BOOK 3) 
0785: 

0786: 

0787: 14CF 85 F3 STEP STAZ ACC SAVE ACCU - 

0788: 14D1 68 PLA GET PREG 

0789: 14D2 85 Fi STAZ PREG 

0790: 14D4 68 PLA GET PCL 

0791: 14D5 85 EF STAZ PCL 

0792: 14D7 85 FA STAZ POINTL PC OF THE NEXT INSTRUCTION 
0793: 14D9 68 PLA GET PCH 

0794: 14DA 85 FO STAZ PCH 

0795: 14DC 85 FB STAZ POINTH 

0796: 14DE 84 FY STYZ YREG 

0797: 14EO0 86 F5 STXZ XREG 

0798: 14E2 BA TSX GET OLD STACK POINTER 
0799: tHE3 86 F2 STXZ SPUSER AND SAVE IT 

0800: 14E5 20 F8 11 JSR PRBUFS OPEN NEXT CELL 

0801: tHE8 4C 6A 10 JMP RESALL BACK TO MONITOR 

0802: 

0803: 

0804: 
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0805: 


##® SPECIAL ID ### 


IPBRES LDAIM 


0806: 

0807: 14EB AQ 00 
0808: 14ED 85 F8 
0809: 14EF 85 F9 
0810: 14F1 4C A2 13 


SYMBOL TABLE 3000 3594 


ACC OOF 

ASSEM 125 

BITS 1AT5 
BYTE 1A6A 
CHARVU OC5D 
CHKID OB9E 
CNTA 1AF4 
CNTHH 1A5D 


COMPNT 0949 
DATATR OA4O 
DELHBT 1303 


DUMPT O9F3 
ENDADH OOE5 
FIRST 1A76 
GB 1496 
GETID 148A 
HEXDAT OA6A 
HIG OACB 
IDPAR 14A7 
INL OOF8 


IPBRES 14EB 
JUNIOR 1246 


LIST 10C9 
MATD 113F 
MATJ 1477 
ME 171D9 
MINUS 1080 
NIB OAA1 
ONE OAA8 
PADD 1A81 
PARBH 1A66 
PC 111F 
PLU 1073 
PRA 1347 
PRCHA 1334 
PRNIBL 129B 
RBB OBFB 
RDBIT OBC2 
RDSA OB60 


READCH 1070 
RECCHA 12AE 
RESIN 1268 
SAH 1A71 
SAVID 11BF 
SEAL O97A 
SHIFT 08A3 
sIc T44gQ 
SPRB 123D 
STAR OB4S 
STEAH O8D4 
STEP 14CF 
STSAL 08C8 
SYNCNT 1A74 
TDISP 091B 
TEMPX OOFD 
TLOOK O9BB 
TPVEC 0918 
VALNUM 11CB 
VU oc64 
ZERO OAB8 


ADJPNT 
BEGADH 
BRKT 
CENDH 
CHA 
CHKL 
CNTC 
CNTHL 
COMTIM 
DAT 
DELY 
EAH 
ENDADL 
FMA 
GETA 
GETKEY 
HEXNUM 
HNUA 
INCPNT 
INPAR 
IPB 
JUN 

LO 
MATF 
MATK 
MESEND 
NA 

NMI 
OUTBT 
PAD 
PARBL 
PCH 
PNT 
PRBUFS 
PRC 
PRSP 
RDBA 
RDBYT 
RDTAPE 
RECA 
RECD 
RESPAR 
SAID 
SBEGH 
SECOND 
SHOWPR 
SID 
SPUSER 
STARA 
STEAL 
STPBIT 
SY 
SYNCS 
TEMP 
TENSYN 
TPINIT 
TTXT 
VALT 
WARMST 
ZRO 


STAZ 
STAZ 


JMP 


OCT2 
00E3 
1A7C 
OOE9 
1462 
TA6E 
tAF6 
TA5C 
12E0 
089C 
0927 
1A73 
OOE4 
OB84 
0800 
IDF 
126F 
1276 
1213 
1387 
13A2 
1248 
OAE8 
1142 
118B 
11E7 
12AB 
TATA 
OA8B 
1A80 
1A65 
OOFO 
109F 
11F8 
137C 
11F3 
OBD1 
OBF3 
OBO2 
12BB 
12BE 
1259 
143B 
0989 
1A7TT 
1228 
093B 
00F2 
OB55 
O8E0O 
1A59 
1A69 
OAIF 
OOFC 
0B36 
0810 
0833 
1438 
1CCA 
OAC1 


$00 
INL RESET INPUT BUFFER 
INH 


IPB CONTINUE 


ASCHEX 0C19 ASHETT 141E 


BEGADL OOE2 BEGIN 1ED3 
BRKTST 1374 BTWEEN OBE8 
CENDL 0OO0E8 CHAR 1A6B 
CHECK OB8A CHKH 1A6F 
CHKSUM OCHB CLEND 11EF 
CNTDN 131E CNTH 1A5B 
CNTL TADA COLDST 1CB5 
CONTIN 111C CRLF 11E8 
DECPNT 127A DELBIT 1312 
DISCNT 1A68 DUMP O9DF 


EAL TAT2 EDITOR 124F 
FILES 0873 FILMEM 0B70 
GA 14A6 GANG 1A78 
GETB O84E GETERR 11BC 
GETTAP 11B0 GET 0840 
HIGH OAC8 HIGHER 1A6C 
HNUB 1284 ID 1A79 
INH OOFY INITPR 1000 
Ee 1219 IPA 1395 
IPC 13B0 IPD 13BC 
LABJUN 105F LDAINH 1DA7 
LOWER 1A6D LOW OAE5 
MATG 1156 MATH 115E 
MATL 119E MATRIX 14131 
MESS 13BD MESSY 11D6 


NIBASC 12A4 
NOTVAL 0C29 


NIBOUT OAQA 
NOTVAT 142E 


OUTBTC OA7A OUTCH OAA3 
PARAH 1A64 PARAL 1463 
PBDD 1A83 PBD 1A82 
PCL OOEF PLUS O85E 
POINTH OOFB POINTL OOFA 
PRBYT 128F PRB 1354 
PRD 135D PREG OOF 1 
PRTEMP 1A67 RBA OBFA 
RDBB OBD4 RDBC OBEY 
RDCH 0C36 RDFLAG 1AD5 
RDTDIS 1AD4 READ 0C38 
RECB 12CD RECC 12D4 
RESALL 106A RESET 1C1D 
RESTTY 714BC RUN 10B2 
SAL 1A70 SAVE 0852 
SBEGL 0997 SEAH 096B 
SENDH 0O9A5 SENDL 09B3 
SIA 1487 SIB 1486 
SPACE 108D SPRA 122F 
SSAH O94D SSAL 095C 


STBEGL O08F7 
STENDL 090D 


STBEGH O08EC 
STENDH 0902 


STRTBT 1039 STSAH O8BC 
SYNC OB1C SYNCA OQB21 
SYNVEC OB9B TAPDIS 0936 
TEMPA 1A60 TEMPB 1A61 
TIMH 1A5F TIML 1A5E 
TPI 0821 TPTXT O082E 
VALID o0C2c VALIT 1431 
VAL 0033 VNA 11D3 
XREG OOF5 YREG OOFY 
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Appendix 4 


Working in decimal 


The detours involved to reach either the original monitor routine or the 
Printer Monitor during or after execution of a decimal program was 
mentioned at least twice in Book 3 (see chapter 12, page 151 and appen- 
dix 2). The ‘detours’ consisted of a few instructions stored in PIA RAM. 

Although the detours are still necessary, the corresponding instructions 
no longer need to be entered into the PIA RAM by the operator, as they 
are now located in the very last section of the PM/PME EPROM. The de- 
tails are shown in figures 1a and 1b — the BINAR and PMBINA routines. 





JMP-SAVE 





SAVE 
$ 1080 


(original monitor) 


NMI (STEP) 
1A76 TATA » 


IRQ (BRK) 
> [1 
1A7F 1A7E 
81916 ta 


214 


1b 


$I7FA 









CLO 


JMP-STEP 


STEP 
$ 14CF 
(PM) 


NMI (STEP) . 
1A7B 1A7A 


IRQ (BRK) . 
7 | 
TA7F 1A7E 


81916 ib 


Appendix 5 


BASIC on the Junior Computer 


Although the Junior Computer is quite fluent in machine 
language, its linguistic skills cannot lead to full ‘adult’ communi- 
cation until the machine has learned a ‘high level’ language, such 
as BASIC. A specially adapted version of BASIC is now available 
on cassette from the Microsoft/Johnson Computer Corporation, 
which will enable Junior Computer operators to fulfil their 
dreams at long last. 


Part one 


BASIC still remains the number one computer Janguage. Although it may 
not be as grammatical and efficient as other languages (such as COMAL or 
PASCAL), its popularity shows that it meets the essential requirements of 
computer users all over the world. Thanks to Microsoft, who developed an 
excellent version of BASIC for the KIM computer some time ago, the 
Junior Computer can now be made bilingual, its ‘mother tongue’ being 
machine language of course. Even with the addition of a BASIC vocabu- 
lary, machine language still plays an important role in various routines and 
timing processes etc., so there is no question of it being completely re- 
placed. That is a relief for readers who have stayed up to all hours getting 
to grips with the machine language instruction set! 

The KB9 BASIC by Microsoft is a nine digit 8k BASIC on cassette. Since 
this was originally developed for the KIM, it will have to be modified 
before it will run on the Junior Computer. Contrary to what might be 
expected, this is a straightforward operation that takes a mere fifteen 
minutes or so. This is nothing compared to the thousands of man-hours 
involved in developing the Microsoft BASIC. Only 31 of the eight thousand 
memory locations need to have their contents altered. Now to discover 
what ingredients are required to ‘cook up’ a BASIC on the Junior Com- 
puter. 


The ingredients 


First of all, what about the hardware? Obviously, the computer will have 
to be a fully extended version. In addition, 16k of RAM has to be located 
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in the address range $2000... $5FFF, either in the form of two RAM/ 
EPROM cards each containing 8k of RAM, or the 16k dynamic RAM card 
described in the Elektor April 1982 (E84) issue. 

Although the extensions were fully described in Book 3, it may be an idea 
to briefly recap on a few main points here, as this is really a very basic part 
of the BASIC facility! The extra bus board memory should also contain 
the three jump vectors situated in the address range $FFFA...$FFFF. 
Appendix 3 in Book 3 mentions two ways in which to include these vec- 
tors without the need for an expensive RAM/EPROM card. In the Elektor 
April 1982 issue a mini EPROM card is introduced which provides yet 
another option. 

As far as the software requirements are concerned, both the printer 
monitor (PM) and the tape monitor (TM) routines must be available. The 
former contains the input/output subroutines RECCHA ($12AE), PRCHA 
($1334) and RESTTY ($14BC) which serve to start the Junior Computer 
BASIC. The latter contains the main cassette routines DUMP ($@9DF) and 
RDTAPE ($@B@2). Then, of course, the KB-9 BASIC cassette (not KB-6 
nor KB-8!!) will have to be acquired, together with all the necessary docu- 
mentation. Other requirements include a cassette recorder, an ASCII key- 
board, a printer and/or a video display terminal and an understanding of 
programming in the BASIC language. Anyone who wishes to brush up on 
their BASIC knowledge should read the crash course published in the 
March... June 1979 issues of Elektor or SC/MP Book 2. 


The recipe 


@ Switch on the Junior Computer and start up the PM routine. Place the 
KB-9 cassette in the tape recorder: 

RST 180@@GO RES 

G1 (CR) 

@ Start the recorder in the play mode at the beginning of the tape. The 
program number (ID) of KB-9 is @1. Reading in the instructions etc. 

takes several minutes, after which the computer reports ‘READY’. Remove 

the cassette from the recorder as it is advisable to store the Junior BASIC 

on a separate cassette and preserve the KB-9 version in its original form. 

@ Using the PM routine, alter the contents of 31 memory locations, as 
indicated in the first section of the accompanying table. Start by 

checking the ‘old’ data at the locations concerned. Any discrepancies will 

mean that you have been landed with the wrong version of BASIC! 

@ Place a new cassette in the recorder. Start at the beginning, reset the 
counter and depress the record and play buttons. After about ten 

seconds enter: 

SB1, 2000, 4261 (CR) 

It only takes a matter of minutes for the Junior BASIC to be recorded. 

The program number will now be B1. 

@ As soon as the Junior BASIC is stored on cassette, the message 
‘READY’ will appear on the printer or the video screen. Let the tape 

continue for a further ten seconds before depressing the stop key. 

@ 18 locations on page 1A (PIA RAM) need to be loaded with six LOAD 
and SAVE instructions. The address area concerned is $1A@@...$1A11; 
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Table 1 


The KB-9 to Junior BASIC conversion table 
(based on the KB-9 cassette, # 4065 © 1977 by Microsoft Co.; version V1.1). 


|. The interpreter 


a. 1D = B1 instead of @1. a. 1D = B82. 

b. 1. Address $2457 should contain AE instead of 5A; b. 1. Address $1AG@ contains 20; 
2. Address $2458 shouid contain 12 instead of 1E; 2. Address $1A@1 contains DF; 
3. Address $26DD should contain 8@_— instead of 49; 3. Address $1A@2 contains @9, 
4. Address $26DE should contain 14 _ instead of 17; 4. Address $1A@3 contains 2@: 
5. Address $2746 should contain 79 instead of FQ; 5. Address $1A@4 contains BC; 
6. Address $2747 should contain 1A _ instead of 17; 6. Address $1A95 contains 14, 
7. Address $274D should contain 7@ instead of F5, 7. Address $1AQ@6 contains 4C: 
8. Address $274E should contain 1A instead of 17; 8. Address $1AQ7 contains 48; 
9, Address $275@ should contain71 instead of F6, 9. Address $1A@8 contains 23; 

10. Address $2751 should contain1A instead of 17; 10. Address $1A@9 contains 2@; 
11. Address $2757 should contain 72 instead of F7; 11. Address $1 AGA contains 02; 
12. Address $2758 should contain 1A instead of 17; 12. Address $1A@B contains @B; 
13. Address $275A should contain 73 instead of F8; 13. Address $1A@C contains 20; 
14. Address $275B should contain 1A_ instead of 17; 14. Address $1AQ@D contains BC; 
15. Address $275E should contain 1A instead of 18, 15. Address $1AQE contains 14; 
16. Address $2791 should contain 7@ instead of F5; 16. Address $1A@F contains 4C; 
17. Address $2792 should contain 1A _ instead of 17; 17. Address $1A10 contains A6; 
18. Address $2794 should contain 71 instead of F6: 18. Address $1A11 contains 27. 
19. Address $2795 should contain 1A _ instead of 17; 

20. Address $2799 should contain 79 instead of FQ; 

21. Address $279A should contain 1A instead of 17; 

22. Address $27A4 should contain 69 instead of 73; 

23. Address $27A5 should contain 1A instead of 18; 

24. Address $27B9 should contain FA instead of ED; 

25, Address $27BA should contain 9@ = instead of 17; 

26. Address $27BC should contain FB instead of EE: 

27. Address $27BD should contain @@ instead of 17, 

28. Address $2A52 should contain 34 instead of A@; 

29. Address $2453 should contain 13 instead of 1E; 

30. Address $2AE6 should contain AE instead of 5A; 

31. Address $2AE7 should contain 12 instead of 71E. 


tl. Additional instructions on page 1A 


details of the contents of these locations can be found in the second haif 
of the table. This data is given the program number B2 and ts again stored 
on cassette. 
@ Depress the record and play keys once more and enter: 

SB2, 1A@@, 1A12 (CR). 
@ After the ‘READY’ message, the cassette recorder can be stopped. 
Now it is time to check whether the Junior BASIC is correctly stored in 
memory. This can be done with the aid of the ‘question and answer’ game 
following the BASIC start address ($4065). It is always a good idea to 
enter a test program. The cassette commands can be verified by writing a 
BASIC program, storing it on cassette (SAVE), erasing the program area 
(NEW) and then reading the program in again from cassette (LOAD). Once 
the Junior BASIC has met with approval, the same procedure can be used 
to test the Junior BASIC cassette. For this, the Junior Computer is 
switched off for a while and then on again, after which the two programs 
(B1 and B2) are loaded from cassette. 


Ready to serve 


By now the operator is all set to dish up the Junior Computer BASIC. Do 
not forget to read the manual supplied with the cassette. This consists of 
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the ‘Microsoft Introduction’, ‘Dictionary’ and ‘Usage Notes’. Although the 
contents are rather concise, to the point of being cryptic, all the necessary 
information is provided. As far as the software is concerned, only one or 
two actual addresses are mentioned. 
The following remarks, however, should make things a bit clearer: 
1. After entering: | 

RST 10@@GO RES (RUBOUT) 

GB1 (CR) 

READY (depress stop key) 

GB2 (CR) (depress stop key again) 

READY 
the Junior BASIC can now be started. A cold start entry takes place at 
address $4965. 
4965 (SP) R 
The program must be started by way of PM and not by way of the original 
monitor routine, as otherwise the input/output parameters will be incor- 
rectly defined. In any case, PM is indispensable for reading in data. 


2. The Junior BASIC. utilises the following memory range on page zero: 
$9000... $@@DC and $O@FF. Thus one of the locations (MODE) be- 

longing to the original monitor is used. This merely serves to start PM. 

3. The start address for a warm start entry is $600@. In the KIM the warm 
start entry allows the computer to return to BASIC after writing or 

reading a BASIC program to or from cassette. In the case of the Junior 

Computer things are slightly different (see point 9). Here, the warm start 

entry may be used to return to BASIC from PM. The jump from BASIC to 

PM occurs either as a result of a non-maskable interrupt (NMI) or because 

the BREAK key on the ASCII keyboard was depressed. The BRK jump 

vector points to the label LABJUN ($195F) of the PM routine. After 

printing the text ‘JUNIOR’, the computer jumps to the central label 

RESALL of PM (see Chapter 14 in this book). In the event of an NMI, 

RESALL is reached at the end of the STEP initialisation routine ($14CF). 

4. The ST key may be used during PM to examine the contents of various 
memory locations, such as the ones on page zero (see point 2) for in- 

stance. A warm start entry heralds the return to the BASIC program. 

5. Supposing the operator is executing a BASIC program (RUN) making 
use of the Elekterminal (up to 16 lines on the display) and the BASIC 

program turns out to contain more than 16 lines. This is what should be 

done: 

RUN (CR) 

BRK (while 16th line is being printed) 

examine result | 

(SP) R The computer prints 

OK 

Start the program again: RUN(CR) 

enter the 16th and following 14 lines, etc. 

6. When starting the Junior BASIC by way of a cold start entry, the 
operator will be requested to state the ‘TERMINAL WIDTH’. If the 

~ Elekterminal is being used, this is set at 64 (CR). 

7. The ASCII keyboard does not provide a ‘tT’ nor a ‘*’ key necessary for 
power functions, where AT4 corresponds to A*. What is required is an 
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ASCII key which generates the code $5E. This can be improvised by sacri- 
ficing another key. One contact is connected to row x7 and the other to 
column y9Q in the keyboard matrix (pins 32 and 22 of IC1). Only two keys 
are suitable: the ‘PAGE’ key at the far right in the top row and the ‘ESC’ 
key at the far left in the second row. The latter affords the most elegant 
solution, as the ESC function is preserved (a matter of combining it with 
the Shift key). Interrupt the two connections x5 and y10 (without actu- 
ally cutting the wires!) and link the ESC key to pins 22 and 32 of !C1. 
Further details on the ASCII keyboard are provided in Book 3 
(Chapter 12). | 
8. In order to start the Junior BASIC by way of a fresh cold start entry 
during a computer session, the program (file B1) will have to be loaded 
from cassette all over again. This is necessary as a relatively large section of 
data block B1 is reserved as the first section of the BASIC work area if any 
trigonometric functions are required. After the cold start entry, the com- 
puter will request the operator to specify its task. Whether trig functions 
are to be performed or not, the computer must be informed by way of a 
cold start entry, (once B1 has been loaded again). 
N.B. In file B1 ($2000. . . $4260), locations $4041... $4260 are added 
to the user work space if the operator wishes to utilise the trigonometric 
functions (depress the Y key); locations $3F1F ...$4260 are added to 
the user work space if the trig functions are not required (N key); locations 
$3FD3 .. . $4260 are added if the ATN function (A key) is cancelled. 
The first memory location is loaded with 00 (BOF: Beginning Of File). 
Now that 16k of RAM has been added, the user work space will cover the 
following ranges: 
$4942 ... $5FFF (8126 bytes) when Y is depressed; 
$3F 20 ... $5FFF (8416 bytes) when N is depressed and 
$3FD4...$5FFF (8236 bytes) when A is depressed. 
9. Thanks to the Junior Computer subroutine system, reading and writing 
BASIC programs to and from cassette (SAVE and LOAD) is much 
easier than with the KIM BASIC. The only snag is that this occupies the 
second file, B2. After SAVE has been entered, the BASIC program is 
stored on tape (where ID=FE). After a while, the ‘OK’ message will 
appear followed by an empty line. After LOAD (CR) is entered, a BASIC 
program is read from tape (where 1D =FF, so make sure the required 
BASIC program is stored before this!). A little later ‘LOADED’ ts printed. 
This is not followed by the message OK and the computer does not start 
a new line. In other words, the video screen will display ‘LOADEDLIST’ if 
the entered program is to be checked. 


Any questions? 


Here are the answers to several questions which are likely to be asked: 

1. Elektor Publishers Ltd. cannot comply with requests for a copy of the 
notes accompanying the Microsoft/Johnson BASIC cassette, as this 

would be an infringement of copyright. 

2. The source listing of the KB-9 costs a few thousand dollars. Not sur- 
prisingly, Elektor is not in a position to sell it to readers. 

3. The Junior BASIC is derived from the KIM BASIC, about which plenty 
of literature is available. 
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Part Two 


Polishing up the Junior BASIC 


When the Microsoft BASIC appeared on the market for the 6502, several 
batches of the CPU did not contain the ROR instruction at that particular 
time. That is why it was excluded (out of necessity!) from the multipli- 
cation and addition/subtraction routines. I1t was replaced by a ‘macro 
instruction’, a set of six two byte instructions. Nowadays, however, the 
~ new 6502 chips all include the ROR facility, so that the slow, tedious 
macro instructions can be omitted altogether. This cuts down the total 
time it takes to multiply nine digit numbers with a floating decimai point 
by 37% and saves a lot of memory space. 

In the case of the Junior BASIC B1 and B2 can now be combined into a 
single file, which means 68 bytes are available for other purposes. 

Before modifying anything be sure to preserve the original KB-9 BASIC 
and the B1 and B2 files on cassette . . . justin case!, or at least until Junior 
Computer owners are absolutely satisfied that the modified BASIC works. 


en a 


Table 2* 


111. Modifications to the addition and subtraction routines: 
37C3: 18 

@ 12 3 4 5 6 7 8 ¥ A B CC D 
37D@: 76 02 76 03 76 @4 68 GA C8 D@ E8 18 60 


IV. The following B2 instructions fill the ‘vacancies’ left by the macro instruction 
set: 
® 1 2 3 4 5 6 7 8 A B C D E F 
37D9@: 20 DF 
37EQ: 09 20 BC 14 4C 48 23 20 62 OB 20 BC 14 4C AG 27 
37FQ@... 23801 are empty (18 bytes) 


V. Modifications to the multiplication routine: 

o 1 7 3 4 5 6 7 8 9 A B C DE F 
38C90: 66 73 66 74 66 75 66 76 66 BD 98 4A DO 
38D@:D6 60 
38D2... 3903 are empty (50 bytes) 


Vi. New absolute addresses for the ‘ex’ B2 instructions 
see |. The interpreter) 

@ fines1... 14 (I. The interpreter) remain unchanged 

@ line 14a is included after line 14: 
14a. address $275D should contain DE instead of 00 

@ tines 15, 22 and 23: 
15. address $275E should contain 37 instead of 1A (18 in KB-9) 
22. address $27A4 should contain E7 instead of @9 (73 in KB-9) 
23. address $27A5 should contain 37 instead of 1A (18 in KB-9) 

e All the other lines and addresses remain unchanged, paragraph II in Table 1 is 
therefore superfluous. 

* The modifications indicated in this table are optional. 
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So much for the theory ... 


Table 2 shows how to modify the B1 file. Start by loading KB-9 into the 
Junior Computer memory. Then modify the contents of addresses $37C3, 
37D@...37DD, the ROR instructions used by the addition and sub- 
traction programs. After $37DE, the ‘old’ instruction set may be substi- 
tuted for B2 instructions. The ones contained in page 1A are stored in 
the $37DE...37EF address range (see section I! of table 1). Then 
change the multiplication routine instructions: $38C3 ...38D1 (Table 2, 
section V). 

All that remains to be done is to adjust the absolute addresses belonging to 
the ‘old’ B2 instructions in the manner shown in Table 2, section VI. 

B1 and B2 will now constitute a new file which could be christened BB, 
for example, to avoid confusion. Readers will find the alterations speed up 
the Junior BASIC considerably and improve its overall performance. 

The division programs are not affected, as they include the ROL instruc- 
tion and very tittle would be gained by changing the addition/subtraction 
operations. 


Literature: 


BYTE, May 1981, Faster BASIC for the Ohio Scientific, 
J, Sauter, page 236 
BYTE, September 1981, Byte’s bugs, page 110 
Elektor, April 1982, E84, ‘BASIC on the Junior Computer’ 
Elektor, April 1982, E84, ‘Dynamic RAM card’ 


221 


